DONGSHENG6/空运业务/u_op_airi_assistant.pas

unit u_op_airi_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, ComCtrls, bsSkinTabs;

type
  Tfrm_op_airi_assistant = class(TForm)
    t_op_aire_assistant: TADOQuery;
    t_op_aire_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;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    Label33: TLabel;
    RxDBLookupCombo19: TRxDBLookupCombo;
    DBMemo6: TDBMemo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label25: TLabel;
    Label26: TLabel;
    Label164: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    DBEdit13: TDBEdit;
    RxDBLookupCombo11: TRxDBLookupCombo;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit75: TDBEdit;
    DBMemo17: TDBMemo;
    DBMemo18: TDBMemo;
    Label28: TLabel;
    DBEdit5: TDBEdit;
    Label98: TLabel;
    DBEdit56: TDBEdit;
    Label111: TLabel;
    DBMemo19: TDBMemo;
    Label107: TLabel;
    DBEdit76: TDBEdit;
    Label108: TLabel;
    DBEdit77: TDBEdit;
    bsSkinPanel10: TbsSkinPanel;
    lblhbl: TLabel;
    bsSkinPanel4: TbsSkinPanel;
    lblwt: TLabel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label88: TLabel;
    Label8: TLabel;
    Label74: TLabel;
    DBEdit22: TDBEdit;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBLookupCombo3: TwwDBLookupCombo;
    Label85: TLabel;
    Label86: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    wwDBLookupCombo52: TwwDBLookupCombo;
    DBEdit10: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    wwDBLookupCombo15: TwwDBLookupCombo;
    Label89: TLabel;
    DBMemo9: TDBMemo;
    Label3: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    wwDBComboBox3: TwwDBComboBox;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Label9: TLabel;
    DBEdit33: TDBEdit;
    Label70: TLabel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label18: TLabel;
    DBEdit11: TDBEdit;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    wwDBLookupCombo8: TwwDBLookupCombo;
    bsSkinGroupBox4: TbsSkinGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit16: TDBEdit;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBLookupCombo7: TwwDBLookupCombo;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit6: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBLookupCombo4: TwwDBLookupCombo;
    Label93: TLabel;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo1: TRxDBLookupCombo;
    Label1: TLabel;
    Label7: TLabel;
    RxDBLookupCombo5: TRxDBLookupCombo;
    Label10: TLabel;
    RxDBLookupCombo6: TRxDBLookupCombo;
    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_aire_assistantAfterInsert(DataSet: TDataSet);
    procedure t_op_aire_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 RxDBLookupCombo2Change(Sender: TObject);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure RxDBLookupCombo4Change(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_aire_assistantBeforePost(DataSet: TDataSet);
    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 DBEdit7DblClick(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit1DblClick(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure t_op_aire_assistantAfterPost(DataSet: TDataSet);
    procedure wwDBLookupCombo52Change(Sender: TObject);
    procedure wwDBLookupCombo15Change(Sender: TObject);
  private
    updates:boolean;
  
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_airi_assistant: Tfrm_op_airi_assistant;

implementation

uses u_op_aire, u_main, my_sys_function, u_data_share;

{$R *.dfm}

procedure Tfrm_op_airi_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_airi_assistant.bsSkinButton1Click(Sender: TObject);
begin
  if not t_op_aire_assistant.active then t_op_aire_assistant.open; 
  t_op_aire_assistant.insert;
end;

procedure Tfrm_op_airi_assistant.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_op_aire_assistant);
end;

procedure Tfrm_op_airi_assistant.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_op_aire_assistant);
end;

procedure Tfrm_op_airi_assistant.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_aire_assistant);
end;

procedure Tfrm_op_airi_assistant.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڵ<EFBFBD>֤',2,t_op_aire_assistant1,t_op_aire_assistant.DataSource,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;

procedure Tfrm_op_airi_assistant.t_op_aire_assistantAfterInsert(
  DataSet: TDataSet);
var
  afield : variant;
  V: Integer;

begin

  t_op_aire_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='N.V.C';
  t_op_aire_assistant['ͨ<>ظ<EFBFBD><D8B8><EFBFBD>']:='N.V.D';
  t_op_aire_assistant['<27><><EFBFBD>ս<EFBFBD><D5BD><EFBFBD>']:='NIL';
  t_op_aire_assistant['<27><><EFBFBD><EFBFBD>']:='CNY';
  t_op_aire_assistant['<27>˼ۼ<CBBC><DBBC><EFBFBD>']:='Q';
  t_op_aire_assistant['<27><>λ']:='K';
  t_op_aire_assistant['<27>˷Ѹ<CBB7><D1B8>ʽ']:='PP';
  t_op_aire_assistant['<27>ӷѸ<D3B7><D1B8>ʽ']:='PP';
  t_op_aire_assistant['һ<>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_aire_assistant.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
  t_op_aire_assistant['һ<>̺<EFBFBD><CCBA>չ<EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>']:=t_op_aire_assistant.DataSource.DataSet.fieldbyname('<27><><EFBFBD>չ<EFBFBD>˾').asstring;
  t_op_aire_assistant['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_aire_assistant.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime;
  t_op_aire_assistant['<27><><EFBFBD><EFBFBD>']:=t_op_aire_assistant.DataSource.DataSet['ë<><C3AB>'];


  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 V:=0 to (t_op_aire_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if t_op_aire_assistant.Fields.FindField(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName)<>nil then
             t_op_aire_assistant.FieldByName(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName).Value:=t_op_aire_assistant.DataSource.DataSet.Fields[V].Value;
      except
        ;
      end;
    end;
  end
  else
  begin
    for V:=0 to (t_op_aire_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if (t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'֪ͨ<CDA8><D6AA>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
          if t_op_aire_assistant.Fields.FindField(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName)<>nil then
            t_op_aire_assistant.FieldByName(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName).Value:=t_op_aire_assistant.DataSource.DataSet.Fields[V].Value;
      except
        ;
      end;
    end;
  end;
end;

procedure Tfrm_op_airi_assistant.t_op_aire_assistantBeforeInsert(
  DataSet: TDataSet);
begin
  if t_op_aire_assistant.DataSource.DataSet.State=dsinsert then
    t_op_aire_assistant.DataSource.DataSet.post;
  if t_op_aire_assistant.DataSource.DataSet.ISEMPTY then
    abort;
end;

procedure Tfrm_op_airi_assistant.bsSkinButton8Click(Sender: TObject);
var
  afield : variant;
  V: Integer;
begin
  if t_op_aire_assistant.IsEmpty then
    exit;
  t_op_aire_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 V:=0 to (t_op_aire_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
          if t_op_aire_assistant.Fields.FindField(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName)<>nil then
            t_op_aire_assistant.FieldByName(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName).Value:=t_op_aire_assistant.DataSource.DataSet.Fields[V].Value;
      except
        ;
      end;
    end;
  end
  else
  begin
    for V:=0 to (t_op_aire_assistant.DataSource.DataSet.fieldcount-1) do
    begin
      try
        if (t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27>ջ<EFBFBD><D5BB><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'֪ͨ<CDA8><D6AA>')
        and(t_op_aire_assistant.DataSource.DataSet.fields[V].FieldName<>'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>')then
          if t_op_aire_assistant.Fields.FindField(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName)<>nil then
            t_op_aire_assistant.FieldByName(t_op_aire_assistant.DataSource.DataSet.Fields[V].FieldName).Value:=t_op_aire_assistant.DataSource.DataSet.Fields[V].Value;
      except
        ;
      end;
    end;
  end;
end;

procedure Tfrm_op_airi_assistant.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_op_airi_assistant.Hide;
  frm_op_airi_assistant.ManualFloat(frm_op_airi_assistant.BoundsRect );
  action:=cafree;
  frm_op_airi_assistant:=nil;
end;

procedure Tfrm_op_airi_assistant.FormShow(Sender: TObject);
begin
  t_op_aire_assistant.open;
end;

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

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

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

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

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

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

procedure Tfrm_op_airi_assistant.RxDBLookupCombo2Change(Sender: TObject);
begin
  if (t_op_aire_assistant.State=dsinsert)or(t_op_aire_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo2.DisplayValue<>'' then
      t_op_aire_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.RxDBLookupCombo3Change(Sender: TObject);
begin
  if (t_op_aire_assistant.State=dsinsert)or(t_op_aire_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo3.DisplayValue<>'' then
      t_op_aire_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.RxDBLookupCombo4Change(Sender: TObject);
begin
  if (t_op_aire_assistant.State=dsinsert)or(t_op_aire_assistant.State=dsedit)then
  begin
    if RxDBLookupCombo4.DisplayValue<>'' then
      t_op_aire_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.RxDBLookupCombo19Change(Sender: TObject);
begin
  if (t_op_aire_assistant.state=dsinsert)or(t_op_aire_assistant.state=dsedit)then
  begin
    if RxDBLookupCombo19.DisplayValue='' then
      exit;
      t_op_aire_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>˿<EFBFBD><CBBF>ݴ<EFBFBD><DDB4><EFBFBD>'];
  end;
end;

procedure Tfrm_op_airi_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_airi_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_airi_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_airi_assistant.wwDBLookupCombo2Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
  begin
    t_op_aire_assistant.edit;
    t_op_aire_assistant['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.wwDBLookupCombo5Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
  begin
    t_op_aire_assistant.edit;
    t_op_aire_assistant['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.wwDBLookupCombo6Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
  begin
    t_op_aire_assistant.edit;
    t_op_aire_assistant['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.wwDBLookupCombo2Exit(Sender: TObject);
begin
  wwDBLookupCombo2.Clear;
end;

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

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

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

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

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

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

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

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

procedure Tfrm_op_airi_assistant.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_aire_assistant,'<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>');
end;

procedure Tfrm_op_airi_assistant.t_op_aire_assistantBeforePost(
  DataSet: TDataSet);
begin
  t_op_aire_assistant['Ӣ<>ĺ<EFBFBD><C4BA><EFBFBD>']:=date_eng(t_op_aire_assistant.fieldbyname('һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
  try
    if t_op_aire_assistant.state in [dsedit] then
    if (t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_aire_assistant.FieldByName('<27><>λ').Value<>t_op_aire_assistant.FieldByName('<27><>λ').oldValue)
    or (t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue) or (t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').Value<>t_op_aire_assistant.FieldByName('<27><><EFBFBD><EFBFBD>').oldValue)
    or (t_op_aire_assistant.FieldByName('<27><>ͷ').Value<>t_op_aire_assistant.FieldByName('<27><>ͷ').oldValue) 
    then begin
      updates:=true;
    end;
  except

  end;

end;

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

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

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

procedure Tfrm_op_airi_assistant.wwDBLookupCombo1Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[]) then
  begin
    t_op_aire_assistant.edit;
    t_op_aire_assistant['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_airi_assistant.DBEdit7DblClick(Sender: TObject);
begin
   with frm_data_share.P_GetMaxHblno do begin
     close;
     Parameters.ParamByName('@hblhead').value:=DBEdit7.text+'%';
     open;
      if (not IsEmpty) and (FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString<>'') then begin
        lblhbl.Caption:=FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
        bsSkinPanel10.Visible:=true;
      end;
    end;
end;

procedure Tfrm_op_airi_assistant.DBEdit7Exit(Sender: TObject);
begin
  bsSkinPanel10.Visible:=false;
end;

procedure Tfrm_op_airi_assistant.DBEdit1DblClick(Sender: TObject);
begin
   with frm_data_share.P_GetMaxWTno do begin
     close;
     Parameters.ParamByName('@hblhead').value:=DBEdit1.text+'%';
     open;
      if (not IsEmpty) and (FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString<>'') then begin
        lblwt.Caption:=FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
        bsSkinPanel4.Visible:=true;
      end;
    end;
end;

procedure Tfrm_op_airi_assistant.DBEdit1Exit(Sender: TObject);
begin
  bsSkinPanel4.Visible:=false;
end;

procedure Tfrm_op_airi_assistant.t_op_aire_assistantAfterPost(
  DataSet: TDataSet);
begin
  try
    if updates then
    if MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>ء<EFBFBD><D8A1>߻<EFBFBD><DFBB><EFBFBD>ͷ<EFBFBD>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD>ı<EFBFBD>,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>ᵥ<EFBFBD><E1B5A5>',mtWarning,[mbYes,mbNo],0)=mrYes then begin
      t_op_aire_assistant.DataSource.DataSet.Edit;
      t_op_aire_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_aire_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_aire_assistant.DataSource.DataSet['<27><>λ']:=t_op_aire_assistant['<27><>λ'];
      t_op_aire_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_aire_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_aire_assistant.DataSource.DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_aire_assistant['<27><><EFBFBD><EFBFBD>'];
      t_op_aire_assistant.DataSource.DataSet['<27><>ͷ']:=t_op_aire_assistant['<27><>ͷ'];
      frm_op_aire.airassup:=true;
      t_op_aire_assistant.DataSource.DataSet.post;
      updates:=false;
    end;
   finally
     frm_op_aire.airassup:=false;
   end;
end;

procedure Tfrm_op_airi_assistant.wwDBLookupCombo52Change(Sender: TObject);
begin
  if (t_op_aire_assistant.state=dsinsert)or(t_op_aire_assistant.state=dsedit)then
  begin
    if wwDBLookupCombo52.text='' then
      exit;
    if frm_data_share.t_code_port_air.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then begin
      t_op_aire_assistant['ʼ<><CABC><EFBFBD><EFBFBD>']:=frm_data_share.t_code_port_air['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
      t_op_aire_assistant['ʼ<><CABC><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>']:=frm_data_share.t_code_port_air['<27><><EFBFBD><EFBFBD>'];
    end;
  end;

end;

procedure Tfrm_op_airi_assistant.wwDBLookupCombo15Change(Sender: TObject);
begin
  if (t_op_aire_assistant.state=dsinsert)or(t_op_aire_assistant.state=dsedit)then
  begin
    if wwDBLookupCombo15.text='' then
      exit;
    if frm_data_share.t_code_port_air.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo15.text,[]) then begin
      t_op_aire_assistant['Ŀ<>ĸ<EFBFBD>']:=frm_data_share.t_code_port_air['Ӣ<><D3A2><EFBFBD><EFBFBD>'];
      t_op_aire_assistant['Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>']:=frm_data_share.t_code_port_air['<27><><EFBFBD><EFBFBD>'];
    end else begin

      t_op_aire_assistant['Ŀ<>ĸ<EFBFBD>']:='';
      t_op_aire_assistant['Ŀ<>ĸ۹<C4B8><DBB9><EFBFBD>']:='';
    end;
  end;
end;

end.