hanxuntao
/
D6HECHUAN
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 '4e4df949a6'
${ noResults }
D6HECHUAN/海运业务/u_op_seae_assistant.~pas

809 lines
25 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_op_seae_assistant;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
StdCtrls, DBCtrls, RxLookup, bsSkinCtrls, Mask, wwdbedit, Wwdotdot,
Wwdbcomb, wwdbdatetimepicker, wwdblook;
type
Tfrm_op_seae_assistant = class(TForm)
t_op_seae_assistant: TADOQuery;
t_op_seae_assistant1: TDataSource;
dxDBGrid1: TdxDBGrid;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel2: TbsSkinPanel;
Label122: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
DBMemo33: TDBMemo;
DBMemo34: TDBMemo;
RxDBLookupCombo3: TRxDBLookupCombo;
Label121: TLabel;
RxDBLookupCombo4: TRxDBLookupCombo;
Label123: TLabel;
DBMemo35: TDBMemo;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
Label38: TLabel;
DBEdit9: TDBEdit;
Label36: TLabel;
DBEdit7: TDBEdit;
Label125: TLabel;
wwDBLookupCombo49: TwwDBLookupCombo;
Label126: TLabel;
DBEdit63: TDBEdit;
Label15: TLabel;
wwDBDateTimePicker2: TwwDBDateTimePicker;
Label7: TLabel;
wwDBLookupCombo3: TwwDBLookupCombo;
wwDBLookupCombo52: TwwDBLookupCombo;
Label124: TLabel;
Label146: TLabel;
DBEdit10: TDBEdit;
Label145: TLabel;
DBEdit11: TDBEdit;
Label32: TLabel;
wwDBLookupCombo21: TwwDBLookupCombo;
wwDBComboBox1: TwwDBComboBox;
Label21: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
Label26: TLabel;
DBEdit25: TDBEdit;
Label27: TLabel;
Label30: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
Label28: TLabel;
DBEdit26: TDBEdit;
Label31: TLabel;
DBEdit27: TDBEdit;
Label13: TLabel;
DBEdit5: TDBEdit;
Label163: TLabel;
DBMemo38: TDBMemo;
Label158: TLabel;
DBMemo37: TDBMemo;
DBMemo39: TDBMemo;
Label164: TLabel;
Label165: TLabel;
DBMemo40: TDBMemo;
Label166: TLabel;
DBMemo41: TDBMemo;
Label167: TLabel;
DBMemo42: TDBMemo;
Label168: TLabel;
DBEdit80: TDBEdit;
DBEdit81: TDBEdit;
wwDBLookupCombo61: TwwDBLookupCombo;
DBEdit82: TDBEdit;
Label169: TLabel;
DBEdit83: TDBEdit;
Label170: TLabel;
bsSkinButton9: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
Label33: TLabel;
RxDBLookupCombo19: TRxDBLookupCombo;
DBMemo6: TDBMemo;
wwDBLookupCombo2: TwwDBLookupCombo;
wwDBLookupCombo5: TwwDBLookupCombo;
wwDBLookupCombo6: TwwDBLookupCombo;
bsSkinButton21: TbsSkinButton;
Label1: TLabel;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
wwDBLookupCombo1: TwwDBLookupCombo;
Label2: TLabel;
DBEdit1: TDBEdit;
procedure bsSkinPanel2Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure t_op_seae_assistantAfterInsert(DataSet: TDataSet);
procedure t_op_seae_assistantBeforeInsert(DataSet: TDataSet);
procedure bsSkinButton8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit82KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit83KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure RxDBLookupCombo4Change(Sender: TObject);
procedure DBMemo40Change(Sender: TObject);
procedure DBMemo41Change(Sender: TObject);
procedure DBMemo41Exit(Sender: TObject);
procedure DBMemo42Change(Sender: TObject);
procedure DBMemo42Exit(Sender: TObject);
procedure wwDBLookupCombo61Change(Sender: TObject);
procedure RxDBLookupCombo19Change(Sender: TObject);
procedure wwDBLookupCombo2Enter(Sender: TObject);
procedure wwDBLookupCombo5Enter(Sender: TObject);
procedure wwDBLookupCombo6Enter(Sender: TObject);
procedure wwDBLookupCombo2Change(Sender: TObject);
procedure wwDBLookupCombo5Change(Sender: TObject);
procedure wwDBLookupCombo6Change(Sender: TObject);
procedure wwDBLookupCombo2Exit(Sender: TObject);
procedure wwDBLookupCombo5Exit(Sender: TObject);
procedure wwDBLookupCombo6Exit(Sender: TObject);
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure t_op_seae_assistantBeforePost(DataSet: TDataSet);
procedure bsSkinButton21Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1Enter(Sender: TObject);
procedure wwDBLookupCombo1Exit(Sender: TObject);
procedure wwDBLookupCombo1Change(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure t_op_seae_assistantBeforeEdit(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seae_assistant: Tfrm_op_seae_assistant;
implementation
uses u_op_seae, u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_op_seae_assistant.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.width/6);
bsSkinButton9.width:=i;
bsSkinButton1.width:=i;
bsSkinButton2.width:=i;
bsSkinButton4.width:=i;
bsSkinButton3.width:=i;
end;
procedure Tfrm_op_seae_assistant.bsSkinButton1Click(Sender: TObject);
begin
t_op_seae_assistant.insert;
end;
procedure Tfrm_op_seae_assistant.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_seae_assistant);
end;
procedure Tfrm_op_seae_assistant.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_op_seae_assistant);
end;
procedure Tfrm_op_seae_assistant.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_op_seae_assistant);
end;
procedure Tfrm_op_seae_assistant.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae_assistant1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_op_seae_assistant.t_op_seae_assistantAfterInsert(
DataSet: TDataSet);
var
afield : variant;
i: Integer;
aQuery:TADOQuery;
begin
if application.MessageBox('<27><><EFBFBD>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD>\<5C>ջ<EFBFBD><D5BB><EFBFBD>\֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>Ϣ?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
begin
for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
begin
try
t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
t_op_seae_assistant.DataSource.DataSet.fields[i].value;
except
;
end;
end;
if t_op_seae_assistant.DataSource.DataSet['װ<>˷<EFBFBD>ʽ']='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_seae where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>='''+t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
Open;
if not IsEmpty then begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>']) +t_op_seae_assistant['<27><>װ'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>'])+'KGS';
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>'])+'CBM';
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='SAY:'+ntoc(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+t_op_seae_assistant.FieldByName('<27><>װ').asstring+' ONLY.';
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
end
else
begin
for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
begin
try
if (t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8><D6AA>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
t_op_seae_assistant.DataSource.DataSet.fields[i].value;
except
;
end;
end;
if t_op_seae_assistant.DataSource.DataSet['װ<>˷<EFBFBD>ʽ']='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Select sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from t_op_seae where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>='''+t_op_seae_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']+'''');
Open;
if not IsEmpty then begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>']) +t_op_seae_assistant['<27><>װ'];
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>'])+'KGS';
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Floattostr(aQuery['<27><><EFBFBD><EFBFBD>'])+'CBM';
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='SAY:'+ntoc(aQuery.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+t_op_seae_assistant.FieldByName('<27><>װ').asstring+' ONLY.';
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
end;
end;
procedure Tfrm_op_seae_assistant.t_op_seae_assistantBeforeInsert(
DataSet: TDataSet);
begin
if (if_open('776')) then begin
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
if t_op_seae_assistant.DataSource.DataSet.State=dsinsert then
t_op_seae_assistant.DataSource.DataSet.post;
if t_op_seae_assistant.DataSource.DataSet.ISEMPTY then
abort;
end;
procedure Tfrm_op_seae_assistant.bsSkinButton8Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_op_seae_assistant.IsEmpty then begin
t_op_seae_assistant.insert;
exit;
end;
t_op_seae_assistant.edit;
if application.MessageBox('<27><><EFBFBD>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD>\<5C>ջ<EFBFBD><D5BB><EFBFBD>\֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>Ϣ?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
begin
for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
begin
try
t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
t_op_seae_assistant.DataSource.DataSet.fields[i].value;
except
;
end;
end;
end
else
begin
for i:=0 to (t_op_seae_assistant.DataSource.DataSet.fieldcount-1) do
begin
try
if (t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8><D6AA>')
and(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
t_op_seae_assistant[t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName]:=
t_op_seae_assistant.DataSource.DataSet.fields[i].value;
except
;
end;
end;
end;
end;
procedure Tfrm_op_seae_assistant.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_seae_assistant.Hide;
frm_op_seae_assistant.ManualFloat(frm_op_seae_assistant.BoundsRect );
action:=cafree;
frm_op_seae_assistant:=nil;
end;
procedure Tfrm_op_seae_assistant.FormShow(Sender: TObject);
begin
t_op_seae_assistant.open;
end;
procedure Tfrm_op_seae_assistant.DBEdit9KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit7);
end;
procedure Tfrm_op_seae_assistant.DBEdit7KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit1);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo49KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit63);
end;
procedure Tfrm_op_seae_assistant.DBEdit63KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_op_seae_assistant.wwDBDateTimePicker2KeyPress(
Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo52KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit10);
end;
procedure Tfrm_op_seae_assistant.DBEdit10KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit11);
end;
procedure Tfrm_op_seae_assistant.DBEdit11KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo21KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_op_seae_assistant.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit25);
end;
procedure Tfrm_op_seae_assistant.DBEdit25KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;
procedure Tfrm_op_seae_assistant.wwDBDateTimePicker4KeyPress(
Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo15);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo15KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit26);
end;
procedure Tfrm_op_seae_assistant.DBEdit26KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit27);
end;
procedure Tfrm_op_seae_assistant.DBEdit27KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit5);
end;
procedure Tfrm_op_seae_assistant.DBEdit5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo38);
end;
procedure Tfrm_op_seae_assistant.DBEdit81KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo61KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit82);
end;
procedure Tfrm_op_seae_assistant.DBEdit82KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit83);
end;
procedure Tfrm_op_seae_assistant.DBEdit83KeyPress(Sender: TObject;
var Key: Char);
begin
key_dbedit(Key,DBEdit80);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo2Change(Sender: TObject);
begin
if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
begin
if RxDBLookupCombo2.DisplayValue<>'' then
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo3Change(Sender: TObject);
begin
if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
begin
if RxDBLookupCombo3.DisplayValue<>'' then
t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo4Change(Sender: TObject);
begin
if (t_op_seae_assistant.State=dsinsert)or(t_op_seae_assistant.State=dsedit)then
begin
if RxDBLookupCombo4.DisplayValue<>'' then
t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.DBMemo40Change(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
t_op_seae_assistant['<27><>װ']:=total_package(dbmemo40);
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY:'+ntoc(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+t_op_seae_assistant.FieldByName('<27><>װ').asstring+' ONLY.';
end;
end;
procedure Tfrm_op_seae_assistant.DBMemo41Change(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
end;
end;
procedure Tfrm_op_seae_assistant.DBMemo41Exit(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
kgs_cbm(DBMemo41,'KGS');
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
end;
end;
procedure Tfrm_op_seae_assistant.DBMemo42Change(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
end;
end;
procedure Tfrm_op_seae_assistant.DBMemo42Exit(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
kgs_cbm(DBMemo42,'CBM');
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo42.text;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo61Change(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsedit)or(t_op_seae_assistant.state=dsinsert)then
begin
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
:='SAY:'+ntoc(t_op_seae_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
+wwDBLookupCombo61.text+' ONLY.';
end;
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo19Change(Sender: TObject);
begin
if (t_op_seae_assistant.state=dsinsert)or(t_op_seae_assistant.state=dsedit)then
begin
if RxDBLookupCombo19.DisplayValue='' then
exit;
if trim(t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo2Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo5Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27>ջ<EFBFBD><D5BB><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo6Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='֪ͨ<CDA8><D6AA>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo2Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
begin
t_op_seae_assistant.edit;
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo5Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
begin
t_op_seae_assistant.edit;
t_op_seae_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo6Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
begin
t_op_seae_assistant.edit;
t_op_seae_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo2Exit(Sender: TObject);
begin
wwDBLookupCombo2.Clear;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo5Exit(Sender: TObject);
begin
wwDBLookupCombo5.Clear;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo6Exit(Sender: TObject);
begin
wwDBLookupCombo6.Clear;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo33);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo34);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo35);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo4KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_op_seae_assistant.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_op_seae_assistant,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
end;
procedure Tfrm_op_seae_assistant.t_op_seae_assistantBeforePost(
DataSet: TDataSet);
begin
t_op_seae_assistant['Ӣ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=date_eng(t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
end;
procedure Tfrm_op_seae_assistant.bsSkinButton21Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_assistant.bsSkinButton7Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><>ͷ');
end;
procedure Tfrm_op_seae_assistant.bsSkinButton6Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;
procedure Tfrm_op_seae_assistant.bsSkinButton5Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
end;
procedure Tfrm_op_seae_assistant.bsSkinButton10Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_assistant.bsSkinButton11Click(Sender: TObject);
begin
frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo6);
end;
procedure Tfrm_op_seae_assistant.RxDBLookupCombo19KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo1Enter(Sender: TObject);
begin
with frm_data_share do
begin
t_code_code.Filtered:=false;
t_code_code.Filter:='<27><><EFBFBD><EFBFBD>=1';
t_code_code.Filtered:=true;
end;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo1Exit(Sender: TObject);
begin
wwDBLookupCombo1.Clear;
end;
procedure Tfrm_op_seae_assistant.wwDBLookupCombo1Change(Sender: TObject);
begin
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
begin
t_op_seae_assistant.edit;
t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
end;
end;
procedure Tfrm_op_seae_assistant.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo49);
end;
procedure Tfrm_op_seae_assistant.t_op_seae_assistantBeforeEdit(
DataSet: TDataSet);
begin
if (if_open('776')) then begin
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
abort;
end;
end;
end.