DONGSHENG6/海运业务/u_op_seai_assistant.~pas

unit u_op_seai_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_seai_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;
    bsSkinButton12: TbsSkinButton;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seai_assistant: Tfrm_op_seai_assistant;

implementation

uses u_op_seae, u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_seai_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_seai_assistant.bsSkinButton1Click(Sender: TObject);
begin
  t_op_seae_assistant.insert;
end;

procedure Tfrm_op_seai_assistant.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_op_seae_assistant);
end;

procedure Tfrm_op_seai_assistant.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_op_seae_assistant);
end;

procedure Tfrm_op_seai_assistant.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_seae_assistant);
end;

procedure Tfrm_op_seai_assistant.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae_assistant1,t_op_seae_assistant.DataSource,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_seai_assistant.t_op_seae_assistantAfterInsert(
  DataSet: TDataSet);
var
  afield : variant;
  i: Integer;
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
        if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil 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
  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
          if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil 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;
  t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+t_op_seae_assistant.fieldbyname('<27><>װ').AsString;
  t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'KGS';
  t_op_seae_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_assistant.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'CBM';

end;

procedure Tfrm_op_seai_assistant.t_op_seae_assistantBeforeInsert(
  DataSet: TDataSet);
begin
  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_seai_assistant.bsSkinButton8Click(Sender: TObject);
var
  afield : variant;
  i: Integer;
begin
  if t_op_seae_assistant.IsEmpty then
    exit;
  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
        if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil 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
  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
          if t_op_seae_assistant.FindField(t_op_seae_assistant.DataSource.DataSet.fields[i].FieldName)<>nil 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_seai_assistant.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_op_seai_assistant.Hide;
  frm_op_seai_assistant.ManualFloat(frm_op_seai_assistant.BoundsRect );
  action:=cafree;
  frm_op_seai_assistant:=nil;
  
end;

procedure Tfrm_op_seai_assistant.FormShow(Sender: TObject);
begin
  t_op_seae_assistant.open;
end;

procedure Tfrm_op_seai_assistant.DBEdit9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit7);
end;

procedure Tfrm_op_seai_assistant.DBEdit7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit1);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo49KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit63);
end;

procedure Tfrm_op_seai_assistant.DBEdit63KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;

procedure Tfrm_op_seai_assistant.wwDBDateTimePicker2KeyPress(
  Sender: TObject; var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo52);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo52KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit10);
end;

procedure Tfrm_op_seai_assistant.DBEdit10KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit11);
end;

procedure Tfrm_op_seai_assistant.DBEdit11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo21);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo21KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox1);
end;

procedure Tfrm_op_seai_assistant.wwDBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit25);
end;

procedure Tfrm_op_seai_assistant.DBEdit25KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
end;

procedure Tfrm_op_seai_assistant.wwDBDateTimePicker4KeyPress(
  Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo15);
end;

procedure Tfrm_op_seai_assistant.RxDBLookupCombo15KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit26);
end;

procedure Tfrm_op_seai_assistant.DBEdit26KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit27);
end;

procedure Tfrm_op_seai_assistant.DBEdit27KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit5);
end;

procedure Tfrm_op_seai_assistant.DBEdit5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo38);
end;

procedure Tfrm_op_seai_assistant.DBEdit81KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo61);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo61KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit82);
end;

procedure Tfrm_op_seai_assistant.DBEdit82KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit83);
end;

procedure Tfrm_op_seai_assistant.DBEdit83KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit80);
end;

procedure Tfrm_op_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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;
      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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_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_seai_assistant.wwDBLookupCombo2Exit(Sender: TObject);
begin
  wwDBLookupCombo2.Clear;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo5Exit(Sender: TObject);
begin
  wwDBLookupCombo5.Clear;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo6Exit(Sender: TObject);
begin
  wwDBLookupCombo6.Clear;
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo33);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo5KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo34);
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo35);
end;

procedure Tfrm_op_seai_assistant.RxDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo2);
end;

procedure Tfrm_op_seai_assistant.RxDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo5);
end;

procedure Tfrm_op_seai_assistant.RxDBLookupCombo4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;

procedure Tfrm_op_seai_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_seai_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_seai_assistant.bsSkinButton21Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton7Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><>ͷ');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton6Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton5Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton10Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seai_assistant.bsSkinButton11Click(Sender: TObject);
begin
  frm_main.view_momo(t_op_seae_assistant1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seai_assistant.wwDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo6);
end;

procedure Tfrm_op_seai_assistant.RxDBLookupCombo19KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;

procedure Tfrm_op_seai_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_seai_assistant.wwDBLookupCombo1Exit(Sender: TObject);
begin
  wwDBLookupCombo1.Clear;
end;

procedure Tfrm_op_seai_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_seai_assistant.DBEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBLookupCombo(Key,wwDBLookupCombo49);
end;

end.