hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DS6JIEFENG/海运业务/u_op_letter_his.pas

559 lines
16 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_op_letter_his;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
dxDBGrid, dxCntner, wwdbdatetimepicker, RxLookup, StdCtrls, ExtCtrls,
BusinessSkinForm, DB, ADODB, XPMenu, Menus, DBCtrls, Mask;
type
Tfrm_op_letter_his = class(TForm)
bsSkinPanel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
Panel1: TPanel;
bsSkinPanel3: TbsSkinPanel;
Label6: TLabel;
Label1: TLabel;
Label9: TLabel;
Label3: TLabel;
Label2: TLabel;
Label10: TLabel;
Edit1: TEdit;
Edit2: TEdit;
RxDBLookupCombo2: TRxDBLookupCombo;
Edit4: TEdit;
Edit3: TEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
t_bill1: TDataSource;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel5: TbsSkinPanel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
bsSkinNotebook1: TbsSkinNotebook;
Label7: TLabel;
Label8: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
DBMemo5: TDBMemo;
Label14: TLabel;
Label15: TLabel;
DBEdit4: TDBEdit;
DBMemo6: TDBMemo;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBMemo7: TDBMemo;
Label20: TLabel;
Label21: TLabel;
DBEdit8: TDBEdit;
DBMemo8: TDBMemo;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
DBMemo9: TDBMemo;
DBMemo10: TDBMemo;
DBMemo11: TDBMemo;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBMemo12: TDBMemo;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label49: TLabel;
Label50: TLabel;
DBEdit14: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit11: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBMemo13: TDBMemo;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label51: TLabel;
Label52: TLabel;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBMemo14: TDBMemo;
Label53: TLabel;
Label54: TLabel;
DBEdit30: TDBEdit;
DBMemo15: TDBMemo;
Label55: TLabel;
Label56: TLabel;
DBMemo16: TDBMemo;
DBMemo17: TDBMemo;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
t_op_letter_old1: TDataSource;
t_op_letter_cq_old: TADOQuery;
t_op_letter_cq_old1: TDataSource;
t_op_letter_cz_old: TADOQuery;
t_op_letter_cz_old1: TDataSource;
t_op_letter_df_old: TADOQuery;
t_op_letter_df_old1: TDataSource;
t_op_letter_dq_old: TADOQuery;
t_op_letter_dq_old1: TDataSource;
t_op_letter_gg_old: TADOQuery;
t_op_letter_gg_old1: TDataSource;
t_op_letter_hc_old: TADOQuery;
t_op_letter_hc_old1: TDataSource;
t_op_letter_pc_old: TADOQuery;
t_op_letter_pc_old1: TDataSource;
t_op_letter_rh_old: TADOQuery;
t_op_letter_rh_old1: TDataSource;
t_op_letter_yj_old1: TDataSource;
t_op_letter_yj_old: TADOQuery;
PopupMenu2: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N20: TMenuItem;
t_op_letter_old: TADOQuery;
t_op_letter_hd_old: TADOQuery;
t_op_letter_hd_old1: TDataSource;
DBEdit3: TDBEdit;
dxDBGrid1Column2: TdxDBGridColumn;
t_bill: TADOStoredProc;
procedure DBEdit3Change(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure add_letter(old_letter,new_letter:Tadoquery);
procedure bsSkinButton1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_letter_his: Tfrm_op_letter_his;
implementation
uses u_op_letter, u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_op_letter_his.add_letter(old_letter,new_letter:Tadoquery);
var
j:integer;
begin
if not old_letter.IsEmpty then
begin
new_letter.insert;
for j:=0 to (old_letter.fieldcount-1) do
begin
if (old_letter.fields[j].FieldName<>'LE_ID') then
new_letter[old_letter.fields[j].FieldName]:=
old_letter.fields[j].value;
end;
new_letter.post;
end;
end;
procedure Tfrm_op_letter_his.DBEdit3Change(Sender: TObject);
begin
if t_op_letter_old.IsEmpty then
begin
bsSkinNotebook1.PageIndex:=9;
end
else if DBEdit3.Text='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
bsSkinNotebook1.PageIndex:=0;
end
else if DBEdit3.Text='<27><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>' then
begin
bsSkinNotebook1.PageIndex:=1;
end
else if DBEdit3.Text='<27><><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>' then
begin
bsSkinNotebook1.PageIndex:=2;
end
else if DBEdit3.Text='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
bsSkinNotebook1.PageIndex:=3;
end
else if DBEdit3.Text='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
bsSkinNotebook1.PageIndex:=4;
end
else if DBEdit3.Text='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
bsSkinNotebook1.PageIndex:=5;
end
else if DBEdit3.Text='<27>ɳ<EFBFBD>֪ͨ' then
begin
bsSkinNotebook1.PageIndex:=6;
end
else if DBEdit3.Text='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
bsSkinNotebook1.PageIndex:=7;
end
else if DBEdit3.Text='Ԥ<>豣<EFBFBD><E8B1A3>' then
begin
bsSkinNotebook1.PageIndex:=8;
end
else if DBEdit3.Text='ҵ<>񺯵<EFBFBD>' then
begin
bsSkinNotebook1.PageIndex:=10;
end;
end;
procedure Tfrm_op_letter_his.bsSkinButton10Click(Sender: TObject);
begin
Edit1.text:='';
Edit4.text:='';
RxDBLookupCombo2.ClearValue;
Edit2.text:='';
Edit3.text:='';
wwDBDateTimePicker1.text:='';
end;
procedure Tfrm_op_letter_his.bsSkinButton5Click(Sender: TObject);
begin
CLOSE;
end;
procedure Tfrm_op_letter_his.bsSkinButton2Click(Sender: TObject);
var
str:widestring;
begin
if Edit1.text<>''then
str:=' where ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit4.text<>''then
begin
if str=''then
str:=' where ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+''''
else
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
end;
if Edit2.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
end;
if Edit3.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+''''
else
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
end;
if RxDBLookupCombo2.DisplayValue<>''then
begin
if str=''then
str:=' where ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+''''
else
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
end;
if wwDBDateTimePicker1.text<>''then
begin
if str=''then
str:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+''''
else
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+wwDBDateTimePicker1.text+'''';
end;
str:='select * from t_op_seae '+str+default_sort(53,'t_op_seae','','');
t_bill.close;
t_bill.Parameters.ParamByName('SQLStr').value:=str;
t_bill.open;
t_op_letter_old.Open;
t_op_letter_cq_old.Open;
t_op_letter_cz_old.Open;
t_op_letter_df_old.Open;
t_op_letter_dq_old.Open;
t_op_letter_gg_old.Open;
t_op_letter_hc_old.Open;
t_op_letter_pc_old.Open;
t_op_letter_rh_old.Open;
t_op_letter_yj_old.Open;
t_op_letter_hd_old.Open;
end;
procedure Tfrm_op_letter_his.bsSkinButton3Click(Sender: TObject);
var
i,j:integer;
begin
if t_op_letter_old.IsEmpty then
exit;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_letter_old.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
frm_op_letter_insert:=true;
frm_op_letter.t_op_letter.append;
for j:=0 to (t_op_letter_old.fieldcount-1) do
begin
if (t_op_letter_old.fields[j].FieldName<>'LE_ID')
and(t_op_letter_old.fields[j].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_letter.t_op_letter[t_op_letter_old.fields[j].FieldName]:=
t_op_letter_old.fields[j].value;
end;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD>']:=employee;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_op_letter.t_op_letter.post;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_cq_old,frm_op_letter.t_op_letter_cq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>' then
begin
add_letter(t_op_letter_cz_old,frm_op_letter.t_op_letter_cz);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>' then
begin
add_letter(t_op_letter_df_old,frm_op_letter.t_op_letter_df);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_dq_old,frm_op_letter.t_op_letter_dq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_gg_old,frm_op_letter.t_op_letter_gg);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_hc_old,frm_op_letter.t_op_letter_hc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27>ɳ<EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_pc_old,frm_op_letter.t_op_letter_pc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_rh_old,frm_op_letter.t_op_letter_rh);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='Ԥ<>豣<EFBFBD><E8B1A3>' then
begin
add_letter(t_op_letter_yj_old,frm_op_letter.t_op_letter_yj);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='ҵ<>񺯵<EFBFBD>' then
begin
add_letter(t_op_letter_hd_old,frm_op_letter.t_op_letter_hd);
end;
end;
end
else
begin
frm_op_letter_insert:=true;
frm_op_letter.t_op_letter.append;
for j:=0 to (t_op_letter_old.fieldcount-1) do
begin
if (t_op_letter_old.fields[j].FieldName<>'LE_ID')
and(t_op_letter_old.fields[j].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_letter.t_op_letter[t_op_letter_old.fields[j].FieldName]:=
t_op_letter_old.fields[j].value;
end;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD>']:=employee;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_op_letter.t_op_letter.post;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_cq_old,frm_op_letter.t_op_letter_cq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>' then
begin
add_letter(t_op_letter_cz_old,frm_op_letter.t_op_letter_cz);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>' then
begin
add_letter(t_op_letter_df_old,frm_op_letter.t_op_letter_df);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_dq_old,frm_op_letter.t_op_letter_dq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_gg_old,frm_op_letter.t_op_letter_gg);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_hc_old,frm_op_letter.t_op_letter_hc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27>ɳ<EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_pc_old,frm_op_letter.t_op_letter_pc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_rh_old,frm_op_letter.t_op_letter_rh);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='Ԥ<>豣<EFBFBD><E8B1A3>' then
begin
add_letter(t_op_letter_yj_old,frm_op_letter.t_op_letter_yj);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='ҵ<>񺯵<EFBFBD>' then
begin
add_letter(t_op_letter_hd_old,frm_op_letter.t_op_letter_hd);
end;
end;
close;
end;
procedure Tfrm_op_letter_his.bsSkinButton1Click(Sender: TObject);
var
j:integer;
begin
if t_op_letter_old.IsEmpty then
exit;
t_op_letter_old.first;
while not t_op_letter_old.eof do
begin
frm_op_letter_insert:=true;
frm_op_letter.t_op_letter.append;
for j:=0 to (t_op_letter_old.fieldcount-1) do
begin
if (t_op_letter_old.fields[j].FieldName<>'LE_ID')
and(t_op_letter_old.fields[j].FieldName<>'<27><><EFBFBD><EFBFBD>') then
frm_op_letter.t_op_letter[t_op_letter_old.fields[j].FieldName]:=
t_op_letter_old.fields[j].value;
end;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD>']:=employee;
frm_op_letter.t_op_letter['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
frm_op_letter.t_op_letter.post;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_cq_old,frm_op_letter.t_op_letter_cq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>' then
begin
add_letter(t_op_letter_cz_old,frm_op_letter.t_op_letter_cz);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ű<EFBFBD><C5B1><EFBFBD>' then
begin
add_letter(t_op_letter_df_old,frm_op_letter.t_op_letter_df);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>' then
begin
add_letter(t_op_letter_dq_old,frm_op_letter.t_op_letter_dq);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_gg_old,frm_op_letter.t_op_letter_gg);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_hc_old,frm_op_letter.t_op_letter_hc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27>ɳ<EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_pc_old,frm_op_letter.t_op_letter_pc);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>֪ͨ' then
begin
add_letter(t_op_letter_rh_old,frm_op_letter.t_op_letter_rh);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='Ԥ<>豣<EFBFBD><E8B1A3>' then
begin
add_letter(t_op_letter_yj_old,frm_op_letter.t_op_letter_yj);
end;
if t_op_letter_old.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='ҵ<>񺯵<EFBFBD>' then
begin
add_letter(t_op_letter_hd_old,frm_op_letter.t_op_letter_hd);
end;
t_op_letter_old.next;
end;
close;
end;
procedure Tfrm_op_letter_his.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_op_letter_his.bsSkinButton2Click(Sender);
end;
end;
end.