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

809 lines
25 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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.
Reference in New Issue View Git Blame Copy Permalink