D6HECHUAN/海运业务/u_op_seai.pas

unit u_op_seai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,
  RxLookup, StdCtrls, Mask, DBCtrls, wwdblook, wwdbdatetimepicker,
  wwdbedit, Wwdotdot, Wwdbcomb, u_fee, u_op_sate, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, XPMenu, Menus, bsdbctrls,
  u_op_card, u_op_letter_free;

type
  Tfrm_op_seai = class(TForm)
    Panel2: TPanel;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    Notebook1: TNotebook;
    t_op_seai: TADOQuery;
    t_op_seai1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label37: TLabel;
    Label5: TLabel;
    Label38: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit9: TDBEdit;
    RxDBLookupCombo1: TRxDBLookupCombo;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label125: TLabel;
    wwDBLookupCombo49: TwwDBLookupCombo;
    Label126: TLabel;
    DBEdit63: TDBEdit;
    Label10: TLabel;
    wwDBLookupCombo3: TwwDBLookupCombo;
    Label124: TLabel;
    wwDBLookupCombo52: TwwDBLookupCombo;
    Label26: TLabel;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    Label22: TLabel;
    wwDBComboBox2: TwwDBComboBox;
    Label164: TLabel;
    RxDBLookupCombo11: TRxDBLookupCombo;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    DBEdit81: TDBEdit;
    wwDBLookupCombo61: TwwDBLookupCombo;
    DBEdit82: TDBEdit;
    DBEdit83: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label73: TLabel;
    RxDBLookupCombo20: TRxDBLookupCombo;
    RxDBLookupCombo10: TRxDBLookupCombo;
    Label21: TLabel;
    Label23: TLabel;
    RxDBLookupCombo7: TRxDBLookupCombo;
    RxDBLookupCombo6: TRxDBLookupCombo;
    Label24: TLabel;
    Label25: TLabel;
    RxDBLookupCombo9: TRxDBLookupCombo;
    RxDBLookupCombo8: TRxDBLookupCombo;
    Label27: TLabel;
    Label33: TLabel;
    RxDBLookupCombo19: TRxDBLookupCombo;
    DBMemo1: TDBMemo;
    Label28: TLabel;
    Label29: TLabel;
    DBMemo2: TDBMemo;
    fra_fee1: Tfra_fee;
    bsSkinTabSheet3: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridDateColumn;
    dxDBGrid1Column9: TdxDBGridDateColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridMaskColumn;
    dxDBGrid1Column17: TdxDBGridMaskColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid1Column39: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column41: TdxDBGridMaskColumn;
    dxDBGrid1Column42: TdxDBGridMaskColumn;
    dxDBGrid1Column43: TdxDBGridMaskColumn;
    dxDBGrid1Column46: TdxDBGridMaskColumn;
    dxDBGrid1Column47: TdxDBGridMaskColumn;
    dxDBGrid1Column48: TdxDBGridDateColumn;
    dxDBGrid1Column49: TdxDBGridMaskColumn;
    dxDBGrid1Column50: TdxDBGridMaskColumn;
    dxDBGrid1Column51: TdxDBGridMaskColumn;
    dxDBGrid1Column52: TdxDBGridMaskColumn;
    dxDBGrid1Column53: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column56: TdxDBGridMaskColumn;
    dxDBGrid1Column57: TdxDBGridMaskColumn;
    dxDBGrid1Column44: TdxDBGridColumn;
    dxDBGrid1Column45: TdxDBGridColumn;
    PopupMenu1: TPopupMenu;
    N31: TMenuItem;
    XPMenu1: TXPMenu;
    t_ch_fee: TADOQuery;
    fra_op_state1: Tfra_op_state;
    Label30: TLabel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label31: TLabel;
    dxDBGrid1Column58: TdxDBGridColumn;
    dxDBGrid1Column59: TdxDBGridCheckColumn;
    dxDBGrid1Column60: TdxDBGridColumn;
    Label32: TLabel;
    wwDBComboBox3: TwwDBComboBox;
    Label65: TLabel;
    DBEdit18: TDBEdit;
    dxDBGrid1Column61: TdxDBGridColumn;
    Label6: TLabel;
    RxDBLookupCombo2: TRxDBLookupCombo;
    Label34: TLabel;
    DBEdit16: TDBEdit;
    dxDBGrid1Column62: TdxDBGridColumn;
    Label122: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    DBMemo33: TDBMemo;
    DBMemo34: TDBMemo;
    RxDBLookupCombo4: TRxDBLookupCombo;
    Label121: TLabel;
    Label123: TLabel;
    RxDBLookupCombo5: TRxDBLookupCombo;
    DBMemo35: TDBMemo;
    Label7: TLabel;
    wwDBComboBox1: TwwDBComboBox;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    DBMemo3: TDBMemo;
    Label35: TLabel;
    DBMemo4: TDBMemo;
    Label36: TLabel;
    bsSkinButton13: TbsSkinButton;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo6: TwwDBLookupCombo;
    Label17: TLabel;
    RxDBLookupCombo13: TRxDBLookupCombo;
    Label19: TLabel;
    RxDBLookupCombo12: TRxDBLookupCombo;
    Label41: TLabel;
    Label39: TLabel;
    RxDBLookupCombo29: TRxDBLookupCombo;
    RxDBLookupCombo30: TRxDBLookupCombo;
    Label42: TLabel;
    bsSkinTabSheet4: TbsSkinTabSheet;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
    fra_op_card1: Tfra_op_card;
    PopupMenu3: TPopupMenu;
    N37: TMenuItem;
    N38: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    RxDBLookupCombo31: TRxDBLookupCombo;
    bsSkinTabSheet5: TbsSkinTabSheet;
    fra_op_letter_free1: Tfra_op_letter_free;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    dxDBGrid1Column63: TdxDBGridColumn;
    dxDBGrid1Column64: TdxDBGridColumn;
    dxDBGrid1Column65: TdxDBGridColumn;
    dxDBGrid1Column66: TdxDBGridColumn;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure Panel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure t_op_seaiBeforeEdit(DataSet: TDataSet);
    procedure t_op_seaiBeforePost(DataSet: TDataSet);
    procedure DBEdit13Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo12KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo49KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo3Change(Sender: TObject);
    procedure RxDBLookupCombo4Change(Sender: TObject);
    procedure RxDBLookupCombo5Change(Sender: TObject);
    procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo19KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo10KeyPress(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 DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit81Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure wwDBLookupCombo2Enter(Sender: TObject);
    procedure wwDBLookupCombo5Enter(Sender: TObject);
    procedure wwDBLookupCombo6Enter(Sender: TObject);
    procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
    procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
    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 RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo12Change(Sender: TObject);
    procedure RxDBLookupCombo2Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure dxDBGrid1ColumnSorting(Sender: TObject;
      Column: TdxDBTreeListColumn; var Allow: Boolean);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure RxDBLookupCombo1Enter(Sender: TObject);
    procedure RxDBLookupCombo3Enter(Sender: TObject);
    procedure RxDBLookupCombo4Enter(Sender: TObject);
    procedure RxDBLookupCombo5Enter(Sender: TObject);
    procedure RxDBLookupCombo9Enter(Sender: TObject);
    procedure RxDBLookupCombo6Enter(Sender: TObject);
    procedure RxDBLookupCombo19Enter(Sender: TObject);
    procedure RxDBLookupCombo10Enter(Sender: TObject);
    procedure RxDBLookupCombo7Enter(Sender: TObject);
    procedure RxDBLookupCombo8Enter(Sender: TObject);
    procedure RxDBLookupCombo1Exit(Sender: TObject);
    procedure RxDBLookupCombo3Exit(Sender: TObject);
    procedure RxDBLookupCombo4Exit(Sender: TObject);
    procedure RxDBLookupCombo5Exit(Sender: TObject);
    procedure RxDBLookupCombo9Exit(Sender: TObject);
    procedure RxDBLookupCombo8Exit(Sender: TObject);
    procedure RxDBLookupCombo6Exit(Sender: TObject);
    procedure RxDBLookupCombo7Exit(Sender: TObject);
    procedure RxDBLookupCombo19Exit(Sender: TObject);
    procedure RxDBLookupCombo10Exit(Sender: TObject);
    procedure RxDBLookupCombo20Enter(Sender: TObject);
    procedure RxDBLookupCombo20Exit(Sender: TObject);
    procedure RxDBLookupCombo11Enter(Sender: TObject);
    procedure RxDBLookupCombo11Exit(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label122Click(Sender: TObject);
    procedure Label121Click(Sender: TObject);
    procedure Label123Click(Sender: TObject);
    procedure Label33Click(Sender: TObject);
    procedure Label25Click(Sender: TObject);
    procedure Label24Click(Sender: TObject);
    procedure Label27Click(Sender: TObject);
    procedure Label23Click(Sender: TObject);
    procedure Label21Click(Sender: TObject);
    procedure wwDBLookupCombo2DblClick(Sender: TObject);
    procedure Label125Click(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Label73Click(Sender: TObject);
    procedure Label164Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
    procedure RxDBLookupCombo31Enter(Sender: TObject);
    procedure RxDBLookupCombo31Exit(Sender: TObject);
    procedure wwDBLookupCombo52Change(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure t_op_seaiPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure t_op_seaiBeforeDelete(DataSet: TDataSet);
    procedure t_op_seaiBeforeCancel(DataSet: TDataSet);
    procedure N27Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_seai: Tfrm_op_seai;

implementation

uses u_main,my_sys_function, u_op_seai_add, u_op_ctn,
  u_data_share, u_sys_progress, u_op_seai_double, u_ch_piliang_seai,
  u_op_date_change;

{$R *.dfm}

procedure Tfrm_op_seai.bsSkinButton7Click(Sender: TObject);
begin
  table_Prior(t_op_seai);
end;

procedure Tfrm_op_seai.bsSkinButton6Click(Sender: TObject);
begin
  table_next(t_op_seai);
end;

procedure Tfrm_op_seai.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_op_seai);
end;

procedure Tfrm_op_seai.bsSkinButton4Click(Sender: TObject);
begin
  t_ch_fee.close;
  t_ch_fee.Parameters[0].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  t_ch_fee.open;
  if not t_ch_fee.IsEmpty then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  table_delete(t_op_seai);
end;

procedure Tfrm_op_seai.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_op_seai);
end;

procedure Tfrm_op_seai.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_seai.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption);
  savewwgrid(fra_fee1.wwDBGrid1);
  savewwgrid(fra_fee1.wwDBGrid2);
  frm_op_seai.Hide;
  frm_op_seai.ManualFloat(frm_op_seai.BoundsRect );
  frm_main.freeTabs('frm_op_seai');
  action:=cafree;
  frm_op_seai:=nil;
end;

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

procedure Tfrm_op_seai.FormShow(Sender: TObject);
begin
  if not ASSIGNED(frm_sys_progress) then
    frm_sys_progress:=tfrm_sys_progress.Create(self);
  frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ򡣡<C8BA><F2A1A3A1><EFBFBD>';
  frm_sys_progress.Show;
  frm_sys_progress.bsSkinGauge1.MaxValue:=28;
  frm_sys_progress.bsSkinGauge1.MinValue:=0;
  frm_sys_progress.bsSkinGauge1.Value:=0;
  frm_sys_progress.Update;
  
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select top 100 * from t_op_seai where '
                   +'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
                   +' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+' or <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='+''''+employee+''''
                   +' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  fra_op_letter_free1.op_type.Text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
  fra_op_letter_free1.t_op_letter.DataSource:=t_op_seai1;
  fra_op_letter_free1.t_op_letter.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  fra_op_letter_free1.t_op_letter_free_detail.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  
  fra_op_card1.t_op_card.DataSource:=t_op_seai1;
  fra_op_card1.t_op_card.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  loadreggrid(dxdbgrid1,true,caption);
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  loadwwgrid(fra_fee1.wwDBGrid1);
  loadwwgrid(fra_fee1.wwDBGrid2);


  if if_open('218') or if_open('219') then
  begin
    fra_fee1.edit_type.text:='2';
    fra_fee1.edit_data.text:='0002';
    fra_fee1.edit_report.text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
    fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
    fra_fee1.DBEdit50.DataSource:=t_op_seai1;

    if if_open('218') then
    begin
      fra_fee1.t_ch_accept.DataSource:=t_op_seai1;
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
      begin
        fra_fee1.t_ch_accept.close;
        fra_fee1.t_ch_accept.SQL.Clear;
        fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
        +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
        +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
        +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
      end;
      fra_fee1.t_ch_accept.open;
      fra_fee1.a_shen_delete.open;
      fra_fee1.a_shen_modify_old.open;
      fra_fee1.a_shen_modify_new.open;
      fra_fee1.Panel3.visible:=true;
    end
    else
      fra_fee1.Panel3.visible:=false;
    if if_open('219') then
    begin
      fra_fee1.t_ch_pay.DataSource:=t_op_seai1;
      if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('207')=false) then
      begin
        fra_fee1.t_ch_pay.close;
        fra_fee1.t_ch_pay.SQL.Clear;
        fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
        +''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
        +''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
        +' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
      end;
      fra_fee1.t_ch_pay.open;
      fra_fee1.p_shen_delete.open;
      fra_fee1.p_shen_modify_old.open;
      fra_fee1.p_shen_modify_new.open;
      fra_fee1.Panel1.visible:=true;
    end
    else
      fra_fee1.Panel1.visible:=false;

    if fra_fee1.Panel1.visible and
       fra_fee1.Panel3.visible then
    begin
      fra_fee1.Panel8.Visible:=true;
      fra_fee1.Panel8.Height:=20;
      fra_fee1.t_op_gain.DataSource:=t_op_seai1;
      fra_fee1.t_op_gain.open;

      fra_fee1.Panel9.Visible:=false;
    end
    else
    begin
      fra_fee1.Panel8.Visible:=false;
    end;
  end
  else
  begin
    fra_fee1.Visible:=false;
  end;
  if not if_open('267') then begin
    fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD>״̬',true);
    fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
    fra_fee1.wwDBGrid1.RemoveField('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',true);
    fra_fee1.wwDBGrid1.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
    fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD>״̬',true);
    fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
    fra_fee1.wwDBGrid2.RemoveField('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',true);
    fra_fee1.wwDBGrid2.RemoveField('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',true);
  end;
  
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  fra_op_state1.edit_state.text:='2';
  fra_op_state1.t_op_state.DataSource:=t_op_seai1;
  fra_op_state1.t_op_state.open;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

  frm_data_share.t_crm_client.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_ship.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_changzhan.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_truck.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_baoguan.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_weituo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_daili.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_huodai.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shiper.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_shouhuo.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_tongzhi.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_crm_client_other.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_sys_employee.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_vessel.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_disport.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_loaport.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_goods.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_trade.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_fee.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_currency.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_data_share.t_code_source.requery;
  frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  frm_sys_progress.close;
  frm_sys_progress:=nil;
end;

procedure Tfrm_op_seai.bsSkinButton11Click(Sender: TObject);
var
  answer:TModalResult;
begin
  if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
  begin
    Notebook1.PageIndex:=1;
    bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  end
  else
  begin
    if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
    BEGIN
      answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
      if answer=mrYes then
      begin
        t_op_seai.post;
      end;
      if answer=mrNo then
      begin
        t_op_seai.cancel;
      end;
      if answer=mrCancel then
      begin
        exit;
      end;
    END;
    Notebook1.PageIndex:=0;
    bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
  end;
end;

procedure Tfrm_op_seai.bsSkinButton8Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seai.Panel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(Panel2.Width/11);
  bsSkinButton7.Width:=i;
  bsSkinButton6.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton1.Width:=i;
  bsSkinButton11.Width:=i;
  bsSkinButton8.Width:=i;
  bsSkinButton2.Width:=i;
  bsSkinButton4.Width:=i;
  bsSkinButton3.Width:=i;
  bsSkinButton13.Left:=Panel2.Width-bsSkinButton13.Width-20;
end;

procedure Tfrm_op_seai.bsSkinButton1Click(Sender: TObject);
begin
  if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
    t_op_seai.post;
  try
    frm_op_seai_add:=tfrm_op_seai_add.Create(self);
    frm_op_seai_add.data1.Enabled:=false;
    frm_op_seai_add.data1.DataSet:=t_op_seai;
    frm_op_seai_add.data1.Enabled:=true;
    frm_op_seai_add.ShowModal;
  finally
    frm_op_seai_add.Free;
  end;
end;

procedure Tfrm_op_seai.t_op_seaiBeforeEdit(DataSet: TDataSet);
begin
  op_befor_post(t_op_seai,'0002');
end;

procedure Tfrm_op_seai.t_op_seaiBeforePost(DataSet: TDataSet);
begin
  table_before_post(t_op_seai,'ί<>е<EFBFBD>λ');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>Ա');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_op_seai,'<27>ͷ<EFBFBD>Ա');
  table_before_post(t_op_seai,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');

  table_before_post(t_op_seai,'װ<>˷<EFBFBD>ʽ');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD>');
  table_before_post(t_op_seai,'װ<><D7B0><EFBFBD><EFBFBD>');
  table_before_post(t_op_seai,'ж<><D0B6><EFBFBD><EFBFBD>');
  table_before_post(t_op_seai,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
  table_before_post(t_op_seai,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
  table_before_post(t_op_seai,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  op_empty('t_op_seai',t_op_seai);

  if t_op_seai.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_seai.FieldByName('ί<>е<EFBFBD>λ').asstring then
  begin
    if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_seai.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
    begin
      if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
      begin
        showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
        abort;
      end;
    end; 
  end;
  if t_op_seai.State=dsinsert then
  begin
    if t_op_seai.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
    begin
      t_op_seai['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SI');
      t_op_seai['<27><><EFBFBD><EFBFBD>']:=get_id;
    end;
    t_op_seai['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
    t_op_seai['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
  end
  else
  begin
    if t_op_seai.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
    begin
      table_before_post(t_op_seai,'<27><>װ<EFBFBD><D7B0>');
    end;
  end;

  if strtobool(get_parameters_value(34,'false')) then
  begin
    if t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='' then
    begin
      t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
  end;
  
  if strtobool(get_parameters_value(35,'false')) then
  begin
    if t_op_seai.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring='' then
    begin
      t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>'];
    end;
  end
  else
  begin
    t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
  end;
  if strtobool(get_parameters_value(36,'false')) then
  begin
    if t_op_seai.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring='' then
    begin
      t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['ί<>б<EFBFBD><D0B1><EFBFBD>'];
    end;
  end
  else
  begin
    t_op_seai['ί<>б<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
  end;
  if strtobool(get_parameters_value(60,'false')) then
  begin
    if trim(t_op_seai.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='' then
    begin
      t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
    end;
  end
  else
  begin
    t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
  end;
  if strtobool(get_parameters_value(61,'false')) then
  begin
    if trim(t_op_seai.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='' then
    begin
      t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
    end
    else
    begin
      t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
    end;
  end
  else
  begin
    t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_seai['<27><><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seai.DBEdit13Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  if (t_op_seai.State=dsinsert)then
    t_op_seai.post;
  try
    frm_op_ctn:=tfrm_op_ctn.Create (self);
    frm_op_ctn.t_op_ctn.DataSource:=t_op_seai1;
    frm_op_ctn_type:=false;
    op_ctn_limited:='0002';
    frm_op_ctn.ShowModal;
  finally
    frm_op_ctn.Free;
  end;
end;

procedure Tfrm_op_seai.bsSkinButton10Click(Sender: TObject);
begin
  query_seai(1,'0002');
end;

procedure Tfrm_op_seai.dxDBGrid1Column3CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_seai.dxDBGrid1Column2CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  AColor:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_op_seai.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit2);
end;

procedure Tfrm_op_seai.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit3);
end;

procedure Tfrm_op_seai.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit4);
end;

procedure Tfrm_op_seai.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit18);
end;

procedure Tfrm_op_seai.RxDBLookupCombo1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo31);
end;

procedure Tfrm_op_seai.RxDBLookupCombo12KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo1);
end;

procedure Tfrm_op_seai.RxDBLookupCombo13KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit8);
end;

procedure Tfrm_op_seai.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit9);
end;

procedure Tfrm_op_seai.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit16);
end;

procedure Tfrm_op_seai.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit13);
end;

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

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

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

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

procedure Tfrm_op_seai.wwDBLookupCombo3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit10);
end;

procedure Tfrm_op_seai.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit11);
end;

procedure Tfrm_op_seai.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit14);
end;

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

procedure Tfrm_op_seai.wwDBDateTimePicker4KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit7);
end;

procedure Tfrm_op_seai.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit12);
end;

procedure Tfrm_op_seai.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
  key_DBEdit(Key,DBEdit15);
end;

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

procedure Tfrm_op_seai.wwDBComboBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;

procedure Tfrm_op_seai.RxDBLookupCombo11KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBEdit(Key,DBEdit5);
end;

procedure Tfrm_op_seai.RxDBLookupCombo3Change(Sender: TObject);
begin
  if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit)then
  begin
    if RxDBLookupCombo3.DisplayValue<>'' then
      t_op_seai['<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.RxDBLookupCombo4Change(Sender: TObject);
begin
  if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit)then
  begin
    if RxDBLookupCombo4.DisplayValue<>'' then
      t_op_seai['<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.RxDBLookupCombo5Change(Sender: TObject);
begin
  if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit)then
  begin
    if RxDBLookupCombo5.DisplayValue<>'' then
      t_op_seai['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
  end;
end;

procedure Tfrm_op_seai.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo1);
end;

procedure Tfrm_op_seai.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo3)
end;

procedure Tfrm_op_seai.wwDBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox2);
end;

procedure Tfrm_op_seai.wwDBComboBox3KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;

procedure Tfrm_op_seai.RxDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo30);
end;

procedure Tfrm_op_seai.RxDBLookupCombo20KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo9);
end;

procedure Tfrm_op_seai.RxDBLookupCombo9KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo8);
end;

procedure Tfrm_op_seai.RxDBLookupCombo8KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo6);
end;

procedure Tfrm_op_seai.RxDBLookupCombo6KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo7);
end;

procedure Tfrm_op_seai.RxDBLookupCombo7KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo19);
end;

procedure Tfrm_op_seai.RxDBLookupCombo19KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo10);
end;

procedure Tfrm_op_seai.RxDBLookupCombo10KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_dbedit(Key,DBEdit81);
end;

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

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

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

procedure Tfrm_op_seai.DBEdit83KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo11);
end;

procedure Tfrm_op_seai.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo12);
end;

procedure Tfrm_op_seai.DBEdit81Change(Sender: TObject);
begin
  if (t_op_seai.state=dsedit)or(t_op_seai.state=dsinsert)then
  begin
    try
      t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
          :='SAY:'+ntoc(strtoint(DBEdit81.text),true)
           +wwDBLookupCombo61.text+' ONLY.';
    except
      ;
    end;  
  end;
end;

procedure Tfrm_op_seai.DBEdit2Change(Sender: TObject);
begin
  DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',DBEdit2.text);
end;

procedure Tfrm_op_seai.DBEdit3Change(Sender: TObject);
begin
  DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
end;

procedure Tfrm_op_seai.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.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.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.wwDBLookupCombo2KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_DBMemo(Key,DBMemo33);
end;

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

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

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

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

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

procedure Tfrm_op_seai.wwDBLookupCombo2Change(Sender: TObject);
begin
  if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
  begin
    t_op_seai.edit;
    t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
  end;
end;

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

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

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

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

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

procedure Tfrm_op_seai.RxDBLookupCombo29KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;

procedure Tfrm_op_seai.RxDBLookupCombo30KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_wwDBComboBox(Key,wwDBComboBox3);
end;

procedure Tfrm_op_seai.RxDBLookupCombo12Change(Sender: TObject);
begin
  if (t_op_seai.state=dsinsert)or(t_op_seai.state=dsedit)then
  begin
    if RxDBLookupCombo12.DisplayValue='' then
      exit;
    if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo12.DisplayValue,[]) then
      t_op_seai['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seai.RxDBLookupCombo2Change(Sender: TObject);
begin
  if (t_op_seai.state=dsinsert)or(t_op_seai.state=dsedit)then
  begin
    if RxDBLookupCombo2.DisplayValue='' then
      exit;
    if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo2.DisplayValue,[]) then
      t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
  end;
end;

procedure Tfrm_op_seai.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_op_seai);
  CanClose:=frm_close_query(fra_op_card1.t_op_card);
end;

procedure Tfrm_op_seai.N10Click(Sender: TObject);
begin
  update_grid_view_no(dxdbgrid1);
end;

procedure Tfrm_op_seai.N14Click(Sender: TObject);
begin
  update_grid_view_all(dxdbgrid1);
end;

procedure Tfrm_op_seai.N12Click(Sender: TObject);
begin
  update_grid(dxdbgrid1,35);
end;

procedure Tfrm_op_seai.N16Click(Sender: TObject);
begin
  grid_save_xls(dxdbgrid1);
end;

procedure Tfrm_op_seai.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort(Column,t_op_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_op_seai.bsSkinButton13Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
  PopupMenu3.Popup(Pnt.x,Pnt.y);
end;

procedure Tfrm_op_seai.N17Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
                   +''''+'¼<><C2BC>״̬'+''''+') '
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N34Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N36Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
                   +''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N37Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.RxDBLookupCombo1Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo1);
end;

procedure Tfrm_op_seai.RxDBLookupCombo3Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo3);
end;

procedure Tfrm_op_seai.RxDBLookupCombo4Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo4);
end;

procedure Tfrm_op_seai.RxDBLookupCombo5Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo5);
end;

procedure Tfrm_op_seai.RxDBLookupCombo9Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo19);
end;

procedure Tfrm_op_seai.RxDBLookupCombo6Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo6);
end;

procedure Tfrm_op_seai.RxDBLookupCombo19Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo19);
end;

procedure Tfrm_op_seai.RxDBLookupCombo10Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo10);
end;

procedure Tfrm_op_seai.RxDBLookupCombo7Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo7);
end;

procedure Tfrm_op_seai.RxDBLookupCombo8Enter(Sender: TObject);
begin
  RxLookupComboEnter(RxDBLookupCombo8);
end;

procedure Tfrm_op_seai.RxDBLookupCombo1Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo1);
end;

procedure Tfrm_op_seai.RxDBLookupCombo3Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo3);
end;

procedure Tfrm_op_seai.RxDBLookupCombo4Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo4);
end;

procedure Tfrm_op_seai.RxDBLookupCombo5Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo5);
end;

procedure Tfrm_op_seai.RxDBLookupCombo9Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo9);
end;

procedure Tfrm_op_seai.RxDBLookupCombo8Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo8);
end;

procedure Tfrm_op_seai.RxDBLookupCombo6Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo6);
end;

procedure Tfrm_op_seai.RxDBLookupCombo7Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo7);
end;

procedure Tfrm_op_seai.RxDBLookupCombo19Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo19);
end;

procedure Tfrm_op_seai.RxDBLookupCombo10Exit(Sender: TObject);
begin
  RxLookupComboExit(RxDBLookupCombo10);
end;

procedure Tfrm_op_seai.RxDBLookupCombo20Enter(Sender: TObject);
begin
  RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seai.RxDBLookupCombo20Exit(Sender: TObject);
begin
  RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seai.RxDBLookupCombo11Enter(Sender: TObject);
begin
  RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seai.RxDBLookupCombo11Exit(Sender: TObject);
begin
  RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;

procedure Tfrm_op_seai.N2Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  bsSkinTabSheet2.show;
end;

procedure Tfrm_op_seai.N4Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  Notebook1.PageIndex:=1;
  bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
  bsSkinTabSheet3.show;
end;

procedure Tfrm_op_seai.Label4Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
end;

procedure Tfrm_op_seai.Label122Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
end;

procedure Tfrm_op_seai.Label121Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
end;

procedure Tfrm_op_seai.Label123Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
end;

procedure Tfrm_op_seai.Label33Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
end;

procedure Tfrm_op_seai.Label25Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
end;

procedure Tfrm_op_seai.Label24Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
end;

procedure Tfrm_op_seai.Label27Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_daili);
end;

procedure Tfrm_op_seai.Label23Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
end;

procedure Tfrm_op_seai.Label21Click(Sender: TObject);
begin
  client_view(t_op_seai.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring,frm_data_share.t_crm_client_truck);
end;

procedure Tfrm_op_seai.wwDBLookupCombo2DblClick(Sender: TObject);
begin
  open_code_edit('016');
end;

procedure Tfrm_op_seai.Label125Click(Sender: TObject);
begin
  open_code_edit('097');
end;

procedure Tfrm_op_seai.Label16Click(Sender: TObject);
begin
  open_code_edit('013');
end;

procedure Tfrm_op_seai.Label10Click(Sender: TObject);
begin
  open_code_edit('011');
end;

procedure Tfrm_op_seai.Label73Click(Sender: TObject);
begin
  open_code_edit('012');
end;

procedure Tfrm_op_seai.Label164Click(Sender: TObject);
begin
  open_code_edit('007');
end;

procedure Tfrm_op_seai.N22Click(Sender: TObject);
var
  str:widestring;
begin
  if t_op_seai.IsEmpty then
    exit;

  if if_open('218') and if_open('219') then
  begin
    if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
      t_op_seai.post;
    try
      frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
      t_op_seai.DisableControls;
      t_op_seai.first;
      while not t_op_seai.eof do
      begin
        if str='' then
          str:=''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
        else
          str:=str+','+''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
        t_op_seai.next;
      end;
      str:='('+str+')';
      str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD> in '+str+default_sort(54,'t_op_seai','','desc');
      frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seai.t_op_seai.open;
      frm_ch_piliang_seai.ShowModal;
    finally
      t_op_seai.EnableControls;
      frm_ch_piliang_seai.Free;
      frm_ch_piliang_seai:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seai.N9Click(Sender: TObject);
var
  str:widestring;
begin
  if t_op_seai.IsEmpty then
    exit;
    
  if if_open('218') and if_open('219') then
  begin
    if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
      t_op_seai.post;
    try
      frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
      str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD>='
          +''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
      frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seai.t_op_seai.open;
      frm_ch_piliang_seai.ShowModal;
    finally
      frm_ch_piliang_seai.Free;
      frm_ch_piliang_seai:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seai.N20Click(Sender: TObject);
var
  str:widestring;
  i:integer;
begin
  if t_op_seai.IsEmpty then
    exit;
  if dxDBGrid1.SelectedCount<1 then
  begin
    showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1>ҵ<EFBFBD><D2B5><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>');
    exit;
  end;
  if if_open('218') and if_open('219') then
  begin
    if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
      t_op_seai.post;
    try
      frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self);
      t_op_seai.DisableControls;

      for i:=0 to dxDBGrid1.SelectedCount-1 do
      begin
        t_op_seai.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
        if str='' then
          str:=''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
        else
          str:=str+','+''''+t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
      end;
      str:='('+str+')';
      str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD> in '+str+default_sort(54,'t_op_seai','','desc');
      frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str;
      frm_ch_piliang_seai.t_op_seai.open;
      frm_ch_piliang_seai.ShowModal;
    finally
      t_op_seai.EnableControls;
      frm_ch_piliang_seai.Free;
      frm_ch_piliang_seai:=nil;
    end;
  end
  else
  begin
    showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
  end;
end;

procedure Tfrm_op_seai.RxDBLookupCombo31KeyPress(Sender: TObject;
  var Key: Char);
begin
  key_RxDBLookupCombo(Key,RxDBLookupCombo13);
end;

procedure Tfrm_op_seai.RxDBLookupCombo31Enter(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;

procedure Tfrm_op_seai.RxDBLookupCombo31Exit(Sender: TObject);
begin
  RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
end;

procedure Tfrm_op_seai.wwDBLookupCombo52Change(Sender: TObject);
begin
  if (t_op_seai.state=dsedit)or(t_op_seai.state=dsinsert)then
  begin
    if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
    begin
      t_op_seai['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
    end;
  end;
end;

procedure Tfrm_op_seai.N24Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N26Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N31Click(Sender: TObject);
begin
  if t_op_seai.IsEmpty then
    exit;
  if not do_data('0002',t_op_seai.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
                       ,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
                       ,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
                       ,t_op_seai.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
                       ,t_op_seai.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
                       ,t_op_seai.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
  begin
    showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޸Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
    abort;
  end;
  
  if t_op_seai.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>');
    abort;
  end;

  if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then
    t_op_seai.post;
  try
    frm_op_date_change:=tfrm_op_date_change.Create (self);
    frm_op_date_change.DataSource1.DataSet:=t_op_seai;
    frm_op_date_change.ShowModal;
  finally
    frm_op_date_change.Free;
    frm_op_date_change:=nil;
  end;
end;

procedure Tfrm_op_seai.t_op_seaiPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
  str:widestring;
begin
  if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>޸ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>޸IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seai(str,1);
    abort;
  end;
  if pos('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seai where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼='+''''+t_op_seai['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']+'''';
    double_seai(str,2);
    abort;
  end;
  if pos('ί<>б<EFBFBD>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seai where ί<>б<EFBFBD>׼='+''''+t_op_seai['ί<>б<EFBFBD>׼']+'''';
    double_seai(str,3);
    abort;
  end;
  if pos('<27><><EFBFBD>ر<EFBFBD>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seai where <20><><EFBFBD>ر<EFBFBD>׼='+''''+t_op_seai['<27><><EFBFBD>ر<EFBFBD>׼']+'''';
    double_seae(str,4);
    abort;
  end;
  if pos('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼',UpperCase(E.Message))<>0 then
  begin
    str:='select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼='+''''+t_op_seai['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']+'''';
    double_seae(str,5);
    abort;
  end;
end;

procedure Tfrm_op_seai.t_op_seaiBeforeDelete(DataSet: TDataSet);
begin
  op_befor_post(t_op_seai,'0002');
  delete_add(2,t_op_seai);
end;

procedure Tfrm_op_seai.t_op_seaiBeforeCancel(DataSet: TDataSet);
begin
  delete_no(t_op_seai);
end;

procedure Tfrm_op_seai.N27Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

procedure Tfrm_op_seai.N30Click(Sender: TObject);
begin
  t_op_seai.Close;
  t_op_seai.SQL.clear;
  t_op_seai.SQL.Add('select * from t_op_seai where '
                   +open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
                   +' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
                   +' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
                   +default_sort(54,'t_op_seai','','desc'));
  t_op_seai.open;
end;

end.