|
|
unit u_op_seae;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
dxExEdtr, XPMenu, Menus, DB, ADODB, bsSkinCtrls, bsdbctrls, wwdbedit,
|
|
|
Wwdotdot, Wwdbcomb, wwdbdatetimepicker, wwdblook, StdCtrls, DBCtrls,
|
|
|
ComCtrls, bsSkinTabs, RxLookup, Mask, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
|
|
|
dxDBCtrl, dxCntner, ExtCtrls, Dialogs, ExtDlgs, Wwdbdlg, u_op_card,
|
|
|
Grids, DBGrids;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae = class(TForm)
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
t_op_seae_fen: TADOQuery;
|
|
|
t_op_seae_fen1: TDataSource;
|
|
|
t_op_seae2: TDataSource;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N5: TMenuItem;
|
|
|
N6: TMenuItem;
|
|
|
N8: TMenuItem;
|
|
|
N9: TMenuItem;
|
|
|
N19: TMenuItem;
|
|
|
N21: TMenuItem;
|
|
|
N23: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
N20: TMenuItem;
|
|
|
N24: TMenuItem;
|
|
|
N7: TMenuItem;
|
|
|
N22: TMenuItem;
|
|
|
N30: TMenuItem;
|
|
|
EXCEL1: TMenuItem;
|
|
|
N33: TMenuItem;
|
|
|
EDI1: TMenuItem;
|
|
|
XPMenu1: TXPMenu;
|
|
|
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;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label36: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBEdit7: TDBEdit;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
Label13: TLabel;
|
|
|
Label158: TLabel;
|
|
|
Label163: TLabel;
|
|
|
Label122: TLabel;
|
|
|
Label121: TLabel;
|
|
|
Label123: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label125: TLabel;
|
|
|
Label126: TLabel;
|
|
|
Label124: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label146: TLabel;
|
|
|
Label145: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label164: TLabel;
|
|
|
Label165: TLabel;
|
|
|
Label166: TLabel;
|
|
|
Label167: TLabel;
|
|
|
Label168: TLabel;
|
|
|
Label169: TLabel;
|
|
|
Label170: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label39: TLabel;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBMemo37: TDBMemo;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
DBMemo38: TDBMemo;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
DBMemo35: TDBMemo;
|
|
|
DBMemo34: TDBMemo;
|
|
|
DBMemo33: TDBMemo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
DBMemo1: TDBMemo;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
DBEdit63: TDBEdit;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
wwDBLookupCombo21: TwwDBLookupCombo;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo9: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
DBMemo39: TDBMemo;
|
|
|
DBMemo40: TDBMemo;
|
|
|
DBMemo41: TDBMemo;
|
|
|
DBMemo42: TDBMemo;
|
|
|
DBEdit80: TDBEdit;
|
|
|
DBEdit81: TDBEdit;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
DBEdit82: TDBEdit;
|
|
|
DBEdit83: TDBEdit;
|
|
|
DBMemo2: TDBMemo;
|
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
|
bsSkinButton16: TbsSkinButton;
|
|
|
bsSkinButton17: TbsSkinButton;
|
|
|
bsSkinButton18: TbsSkinButton;
|
|
|
bsSkinButton19: TbsSkinButton;
|
|
|
bsSkinButton20: TbsSkinButton;
|
|
|
bsSkinButton23: TbsSkinButton;
|
|
|
bsSkinButton24: TbsSkinButton;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
bsSkinButton26: TbsSkinButton;
|
|
|
RxDBLookupCombo14: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo20: TRxDBLookupCombo;
|
|
|
bsSkinButton37: TbsSkinButton;
|
|
|
RxDBLookupCombo21: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo22: TRxDBLookupCombo;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsskintabsheet_1: TbsSkinTabSheet;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label33: TLabel;
|
|
|
RxDBLookupCombo16: TRxDBLookupCombo;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
RxDBLookupCombo17: TRxDBLookupCombo;
|
|
|
DBMemo4: TDBMemo;
|
|
|
RxDBLookupCombo18: TRxDBLookupCombo;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
DBMemo5: TDBMemo;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
RxDBLookupCombo19: TRxDBLookupCombo;
|
|
|
DBMemo6: TDBMemo;
|
|
|
bsskintabsheet_2: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column11: TdxDBGridColumn;
|
|
|
dxDBGrid2Column12: TdxDBGridColumn;
|
|
|
dxDBGrid2Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column16: TdxDBGridMaskColumn;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton31: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton36: TbsSkinButton;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
Panel3: TPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid111: TdxDBGridMaskColumn;
|
|
|
dxDBGrid112: TdxDBGridMaskColumn;
|
|
|
dxDBGrid113: TdxDBGridMaskColumn;
|
|
|
dxDBGrid114: TdxDBGridMaskColumn;
|
|
|
dxDBGrid115: TdxDBGridMaskColumn;
|
|
|
dxDBGrid116: TdxDBGridMaskColumn;
|
|
|
dxDBGrid117: TdxDBGridMaskColumn;
|
|
|
dxDBGrid118: TdxDBGridMaskColumn;
|
|
|
dxDBGrid119: TdxDBGridMaskColumn;
|
|
|
dxDBGrid120: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column64: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column65: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column72: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column70: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column74: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column75: TdxDBGridMaskColumn;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
Label43: TLabel;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
Label45: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label46: TLabel;
|
|
|
wwDBLookupCombo4: TwwDBLookupCombo;
|
|
|
Label47: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
Label44: TLabel;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
Label48: TLabel;
|
|
|
DBEdit13: TDBEdit;
|
|
|
Label49: TLabel;
|
|
|
RxDBLookupCombo23: TRxDBLookupCombo;
|
|
|
Label50: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
Label51: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
Label54: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
|
|
|
Label55: TLabel;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
Label56: TLabel;
|
|
|
RxDBLookupCombo24: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo25: TRxDBLookupCombo;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
RxDBLookupCombo26: TRxDBLookupCombo;
|
|
|
Label59: TLabel;
|
|
|
RxDBLookupCombo27: TRxDBLookupCombo;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
Label191: TLabel;
|
|
|
wwDBComboBox12: TwwDBComboBox;
|
|
|
Label179: TLabel;
|
|
|
DBEdit71: TDBEdit;
|
|
|
Label181: TLabel;
|
|
|
DBEdit73: TDBEdit;
|
|
|
Label185: TLabel;
|
|
|
DBEdit109: TDBEdit;
|
|
|
DBEdit114: TDBEdit;
|
|
|
Label190: TLabel;
|
|
|
Label187: TLabel;
|
|
|
DBEdit111: TDBEdit;
|
|
|
DBEdit112: TDBEdit;
|
|
|
Label188: TLabel;
|
|
|
Label189: TLabel;
|
|
|
wwDBComboBox11: TwwDBComboBox;
|
|
|
DBMemo10: TDBMemo;
|
|
|
EDI2: TMenuItem;
|
|
|
t_ch_fee: TADOQuery;
|
|
|
RxDBLookupCombo28: TRxDBLookupCombo;
|
|
|
DBEdit17: TDBEdit;
|
|
|
Label62: TLabel;
|
|
|
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
|
|
|
dxDBGrid1Column73: TdxDBGridColumn;
|
|
|
dxDBGrid1Column76: TdxDBGridColumn;
|
|
|
dxDBGrid1Column77: TdxDBGridCheckColumn;
|
|
|
Button1: TButton;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label65: TLabel;
|
|
|
dxDBGrid1Column78: TdxDBGridColumn;
|
|
|
Label66: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
Label67: TLabel;
|
|
|
DBEdit21: TDBEdit;
|
|
|
Label68: TLabel;
|
|
|
DBEdit22: TDBEdit;
|
|
|
Label69: TLabel;
|
|
|
DBMemo11: TDBMemo;
|
|
|
dxDBGrid1Column79: TdxDBGridColumn;
|
|
|
dxDBGrid1Column80: TdxDBGridColumn;
|
|
|
dxDBGrid1Column81: TdxDBGridColumn;
|
|
|
Label70: TLabel;
|
|
|
DBMemo12: TDBMemo;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
wwDBLookupCombo46: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo47: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo48: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo5: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo6: TwwDBLookupCombo;
|
|
|
Label19: TLabel;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
Label20: TLabel;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
Label17: TLabel;
|
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
RxDBLookupCombo30: TRxDBLookupCombo;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
Label63: TLabel;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
|
|
|
fra_op_card1: Tfra_op_card;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
N37: TMenuItem;
|
|
|
N38: TMenuItem;
|
|
|
p_old: TADOStoredProc;
|
|
|
N39: TMenuItem;
|
|
|
N40: TMenuItem;
|
|
|
N41: TMenuItem;
|
|
|
N42: TMenuItem;
|
|
|
N43: TMenuItem;
|
|
|
N44: TMenuItem;
|
|
|
N45: TMenuItem;
|
|
|
N46: TMenuItem;
|
|
|
N47: TMenuItem;
|
|
|
N48: TMenuItem;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
N49: TMenuItem;
|
|
|
N50: TMenuItem;
|
|
|
N51: TMenuItem;
|
|
|
N52: TMenuItem;
|
|
|
N53: TMenuItem;
|
|
|
N54: TMenuItem;
|
|
|
N55: TMenuItem;
|
|
|
RxDBLookupCombo31: TRxDBLookupCombo;
|
|
|
t_op_seae_huanhuo: TADOQuery;
|
|
|
N56: TMenuItem;
|
|
|
N57: TMenuItem;
|
|
|
N58: TMenuItem;
|
|
|
N59: TMenuItem;
|
|
|
N60: TMenuItem;
|
|
|
PopupMenu4: TPopupMenu;
|
|
|
N27: TMenuItem;
|
|
|
N28: TMenuItem;
|
|
|
N29: TMenuItem;
|
|
|
N26: TMenuItem;
|
|
|
N31: TMenuItem;
|
|
|
N32: TMenuItem;
|
|
|
N61: TMenuItem;
|
|
|
t_op_seae_huanhuo1: TDataSource;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure t_op_seae_fenBeforePost(DataSet: TDataSet);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure wwDBComboBox2Change(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton32Click(Sender: TObject);
|
|
|
procedure bsSkinButton36Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_seae_fenBeforeDelete(DataSet: TDataSet);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Change(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton21Click(Sender: TObject);
|
|
|
procedure bsSkinButton22Click(Sender: TObject);
|
|
|
procedure bsSkinButton16Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure DBMemo40Change(Sender: TObject);
|
|
|
procedure DBMemo41Change(Sender: TObject);
|
|
|
procedure DBMemo42Change(Sender: TObject);
|
|
|
procedure DBMemo41Exit(Sender: TObject);
|
|
|
procedure DBMemo42Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo61Change(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure DBEdit5Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo3Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo52Change(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N5Click(Sender: TObject);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure N24Click(Sender: TObject);
|
|
|
procedure N22Click(Sender: TObject);
|
|
|
procedure N27Click(Sender: TObject);
|
|
|
procedure N29Click(Sender: TObject);
|
|
|
procedure N9Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Change(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 dxDBGrid2Column3CustomDraw(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 FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
|
procedure EXCEL1Click(Sender: TObject);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
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 dxDBGrid2Column2CustomDraw(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 DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo19KeyPress(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 wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox1KeyPress(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 RxDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit80KeyPress(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 wwDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure wwDBDateTimePicker5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo23KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure RxDBLookupCombo24KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo25KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo27KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo26KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit71KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit73KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit109KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit114KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit112KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo28KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure EDI1Click(Sender: TObject);
|
|
|
procedure Button1Click(Sender: TObject);
|
|
|
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure t_op_seae_fenAfterInsert(DataSet: TDataSet);
|
|
|
procedure DBEdit3Change(Sender: TObject);
|
|
|
procedure DBEdit2Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo47Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo48Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo46KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo47KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo48KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo2Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo6Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo5Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo6Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo29KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo30KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo12Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo14Change(Sender: TObject);
|
|
|
procedure wwDBComboBox3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure wwDBDateTimePicker10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure N37Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo8Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo8Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo28Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo28Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo15Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
procedure N40Click(Sender: TObject);
|
|
|
procedure N42Click(Sender: TObject);
|
|
|
procedure N44Click(Sender: TObject);
|
|
|
procedure N46Click(Sender: TObject);
|
|
|
procedure Label4Click(Sender: TObject);
|
|
|
procedure Label23Click(Sender: TObject);
|
|
|
procedure Label24Click(Sender: TObject);
|
|
|
procedure Label29Click(Sender: TObject);
|
|
|
procedure Label33Click(Sender: TObject);
|
|
|
procedure Label12Click(Sender: TObject);
|
|
|
procedure Label9Click(Sender: TObject);
|
|
|
procedure Label11Click(Sender: TObject);
|
|
|
procedure Label10Click(Sender: TObject);
|
|
|
procedure Label8Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo2DblClick(Sender: TObject);
|
|
|
procedure Label125Click(Sender: TObject);
|
|
|
procedure Label7Click(Sender: TObject);
|
|
|
procedure Label35Click(Sender: TObject);
|
|
|
procedure Label30Click(Sender: TObject);
|
|
|
procedure Label73Click(Sender: TObject);
|
|
|
procedure Label164Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo61DblClick(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure N55Click(Sender: TObject);
|
|
|
procedure N51Click(Sender: TObject);
|
|
|
procedure N53Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo31Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo31Exit(Sender: TObject);
|
|
|
procedure N58Click(Sender: TObject);
|
|
|
procedure N60Click(Sender: TObject);
|
|
|
procedure t_op_seae_huanhuoAfterInsert(DataSet: TDataSet);
|
|
|
procedure N32Click(Sender: TObject);
|
|
|
procedure N26Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae: Tfrm_op_seae;
|
|
|
frm_op_seae_list_type:integer;
|
|
|
frm_op_seae_create:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_op_seae_add,
|
|
|
u_op_ctn, u_op_letter, u_op_add_ctn,u_op_seae_excel,
|
|
|
u_ch_fee_se, u_op_seae_state, u_op_seae_assistant, u_op_seae_edi_yh,
|
|
|
u_op_seae_vessel, u_sys_progress, u_op_seae_fenzhang, u_ch_fee_zhupiao,
|
|
|
u_op_seae_double, u_ch_piliang_seae, u_op_seae_huanhuo_do;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
{const
|
|
|
// Table fields
|
|
|
ArrayLen = 10;
|
|
|
stCustomerName: array [0 .. ArrayLen - 1] of String = (
|
|
|
'John Doe', 'Jennie Valentine', 'Sam Hill', 'Karen Holmes', 'Bobbie Valentine',
|
|
|
'Ricardo Menendez', 'Frank Frankson', 'Christa Christie', 'Alfred Newman', 'James Johnson');
|
|
|
|
|
|
stCompany: array [0 .. ArrayLen - 1] of String = (
|
|
|
'Doe Enterprises', 'Hill Corporation', 'Holmes World', 'Valentine Hearts', 'Menedez Development',
|
|
|
'Frankson Media', 'Christies House of Design', 'Jones & Assoc', 'Newman Systems', 'Development House');
|
|
|
|
|
|
stAddress: array [0 .. ArrayLen - 1] of String = (
|
|
|
'123 Home Lane', '45 Hill St.', '9333 Holmes Dr.', '933 Heart St. Suite 1', '939 Center Street',
|
|
|
'121 Media Center Drive', '349 Graphic Design Lane', '990 King Lane', '900 Newman Center', '93900 Carter Lane');
|
|
|
|
|
|
stCity: array [0 .. ArrayLen - 1] of String = (
|
|
|
'Homesville', 'Hillsville', 'Johnsonville', 'Chicago', 'Atlanta',
|
|
|
'New York', 'Kingsville', 'Newman', 'Cartersville', 'Los Angeles');
|
|
|
|
|
|
stState: array [0 .. ArrayLen - 1] of String = (
|
|
|
'CA', 'NJ', 'NY', 'IL', 'GA', 'OK', 'OH', 'CT', 'MI', 'MA');
|
|
|
|
|
|
stHomePhone: array [0 .. ArrayLen - 1] of String = (
|
|
|
'(111)111-1111', '(222)222-2222', '(333)333-3333', '(898)745-1511', '(151)615-1611',
|
|
|
'(339)339-3939', '(930)930-3093', '(029)020-9090', '(923)022-0834', '(228)320-8320');
|
|
|
|
|
|
stPaymentType: array [0 .. 3] of String = (
|
|
|
'CASH', 'VISA', 'MASTER', 'AMEX');
|
|
|
|
|
|
// save to reg
|
|
|
RegistryPath = '\Software\Developer Express\ExpressGrid\demos\Demo10000\';
|
|
|
VerDemo = 1; }
|
|
|
|
|
|
procedure Tfrm_op_seae.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
|
|
|
if assigned(frm_op_letter) then
|
|
|
frm_op_letter.close;
|
|
|
if assigned(frm_ch_fee_sea) then
|
|
|
frm_ch_fee_sea.close;
|
|
|
if assigned(frm_op_seae_state) then
|
|
|
frm_op_seae_state.close;
|
|
|
if assigned(frm_op_seae_assistant) then
|
|
|
frm_op_seae_assistant.close;
|
|
|
if assigned(frm_ch_fee_zhupiao) then
|
|
|
frm_ch_fee_zhupiao.close;
|
|
|
frm_op_seae.Hide;
|
|
|
frm_op_seae.ManualFloat(frm_op_seae.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae');
|
|
|
frm_op_seae_create:=false;
|
|
|
action:=cafree;
|
|
|
frm_op_seae:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_op_seae,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
table_before_post(t_op_seae,'װ<>˷<EFBFBD>ʽ');
|
|
|
table_before_post(t_op_seae,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
{ if trim(t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)<>'' then
|
|
|
begin
|
|
|
if (t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').OldValue<>t_op_seae.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)
|
|
|
or (t_op_seae.State=dsinsert) then
|
|
|
begin
|
|
|
p_old.close;
|
|
|
p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><>'
|
|
|
+''''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
p_old.open;
|
|
|
if not p_old.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_double:=Tfrm_op_seae_double.Create(self);
|
|
|
frm_op_seae_double.DataSource1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_double.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_double.Free;
|
|
|
frm_op_seae_double:=nil;
|
|
|
end;
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)<>'' then
|
|
|
begin
|
|
|
if (t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').OldValue<>t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)
|
|
|
or (t_op_seae.State=dsinsert) then
|
|
|
begin
|
|
|
p_old.close;
|
|
|
p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><>'
|
|
|
+''''+t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
p_old.open;
|
|
|
if not p_old.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_double:=Tfrm_op_seae_double.Create(self);
|
|
|
frm_op_seae_double.DataSource1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_double.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_double.Free;
|
|
|
frm_op_seae_double:=nil;
|
|
|
end;
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end; }
|
|
|
|
|
|
if t_op_seae.State=dsinsert then
|
|
|
begin
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
table_before_post(t_op_seae,'<27><>װ<EFBFBD><D7B0>');
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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:=34;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
frm_op_seae_list_type:=1;
|
|
|
|
|
|
t_op_seae_fen.close;
|
|
|
t_op_seae_huanhuo.close;
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select top 50 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա')
|
|
|
+'order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_op_seae.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_op_seae_fen.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_op_seae_huanhuo.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
fra_op_card1.t_op_card.DataSource:=t_op_seae2;
|
|
|
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;
|
|
|
frm_op_seae.wwDBComboBox2Change(Sender);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_op_seae_create:=true;
|
|
|
frm_data_share.t_sys_employee.requery;
|
|
|
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_code_code.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_loaport.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_items.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_free.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_signbill.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_package.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_trade.requery;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_data_share.t_code_card.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_seae.t_op_seae_fenBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_op_seae_fen,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'<27>ͷ<EFBFBD>Ա');
|
|
|
table_before_post(t_op_seae_fen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'װ<><D7B0><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'ж<><D0B6><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_seae_fen,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>').asdatetime>t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2>ܴ<EFBFBD><DCB4>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
if t_op_seae_fen.fieldbyname('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime<t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڿ<EFBFBD><DABF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
{ if trim(t_op_seae_fen.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)<>'' then
|
|
|
begin
|
|
|
if (t_op_seae_fen.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').OldValue<>t_op_seae_fen.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring)
|
|
|
or (t_op_seae_fen.State=dsinsert) then
|
|
|
begin
|
|
|
p_old.close;
|
|
|
p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><>'
|
|
|
+''''+t_op_seae_fen.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
p_old.open;
|
|
|
if not p_old.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_double:=Tfrm_op_seae_double.Create(self);
|
|
|
frm_op_seae_double.DataSource1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_double.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_double.Free;
|
|
|
frm_op_seae_double:=nil;
|
|
|
end;
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
if trim(t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)<>'' then
|
|
|
begin
|
|
|
if (t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').OldValue<>t_op_seae_fen.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)
|
|
|
or (t_op_seae_fen.State=dsinsert) then
|
|
|
begin
|
|
|
p_old.close;
|
|
|
p_old.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><>'
|
|
|
+''''+t_op_seae_fen.FieldByName('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
p_old.open;
|
|
|
if not p_old.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_double:=Tfrm_op_seae_double.Create(self);
|
|
|
frm_op_seae_double.DataSource1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_double.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_double.Free;
|
|
|
frm_op_seae_double:=nil;
|
|
|
end;
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end; }
|
|
|
|
|
|
if t_op_seae_fen.State=dsinsert then
|
|
|
begin
|
|
|
t_op_seae_fen['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,'SE');
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.Bof then
|
|
|
t_op_seae2.DataSet.Prior;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if not t_op_seae2.DataSet.eof then
|
|
|
t_op_seae2.DataSet.next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox2Change(Sender: TObject);
|
|
|
begin
|
|
|
if wwDBComboBox2.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
begin
|
|
|
DBMemo39.Width:=223;
|
|
|
Label14.Visible:=true;
|
|
|
DBMemo2.Visible:=true;
|
|
|
bsSkinButton37.Visible:=true;
|
|
|
bsSkinButton17.Visible:=true;
|
|
|
bsSkinPageControl2.Visible:=true;
|
|
|
bsSkinButton12.Visible:=true;
|
|
|
bsSkinButton14.Visible:=true;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=false;
|
|
|
RxDBLookupCombo3.Visible:=false;
|
|
|
RxDBLookupCombo4.Visible:=false;
|
|
|
RxDBLookupCombo5.Visible:=false;
|
|
|
DBMemo33.Visible:=false;
|
|
|
DBMemo34.Visible:=false;
|
|
|
DBMemo35.Visible:=false;
|
|
|
DBMemo1.Visible:=false;
|
|
|
wwDBLookupCombo46.Visible:=false;
|
|
|
wwDBLookupCombo46.Visible:=false;
|
|
|
wwDBLookupCombo46.Visible:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
DBMemo39.Width:=418;
|
|
|
Label14.Visible:=false;
|
|
|
bsSkinButton17.Visible:=false;
|
|
|
bsSkinButton37.Visible:=false;
|
|
|
DBMemo2.Visible:=false;
|
|
|
bsSkinPageControl2.Visible:=false;
|
|
|
bsSkinButton12.Visible:=false;
|
|
|
bsSkinButton14.Visible:=false;
|
|
|
|
|
|
RxDBLookupCombo2.Visible:=true;
|
|
|
RxDBLookupCombo3.Visible:=true;
|
|
|
RxDBLookupCombo4.Visible:=true;
|
|
|
RxDBLookupCombo5.Visible:=true;
|
|
|
DBMemo33.Visible:=true;
|
|
|
DBMemo34.Visible:=true;
|
|
|
DBMemo35.Visible:=true;
|
|
|
DBMemo1.Visible:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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>';
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>' then
|
|
|
begin
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinButton11.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' then
|
|
|
begin
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
t_op_seae2.DataSet:=t_op_seae;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton33Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae2.DataSet:=t_op_seae_fen;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.cancel;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if not t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_seae2.DataSet.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;
|
|
|
if t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>ڷ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae2.DataSet.delete;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton32Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=3;
|
|
|
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton36Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae_fen.State=dsinsert)or(t_op_seae_fen.State=dsedit) then
|
|
|
t_op_seae_fen.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_add:=tfrm_op_seae_add.Create (self);
|
|
|
if t_op_seae2.DataSet=t_op_seae then
|
|
|
begin
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_add_num:=1;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
frm_op_seae_add.data1.DataSet:=t_op_seae_fen;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Checked:=true;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox1.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox2.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox3.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox4.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox5.Enabled:=false;
|
|
|
frm_op_seae_add.bsSkinCheckRadioBox6.Enabled:=false;
|
|
|
frm_op_seae_add_num:=2;
|
|
|
end;
|
|
|
frm_op_seae_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_add.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae_fen,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton8Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
if (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')
|
|
|
or (t_op_seae2.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ')then
|
|
|
begin
|
|
|
N56.Visible:=true;
|
|
|
N57.Visible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
N56.Visible:=false;
|
|
|
N57.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
Pnt:=bsSkinButton8.ClientToScreen(Point(0,bsSkinButton8.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڵ<EFBFBD>֤',2,t_op_seae2,frm_data_share.t_code_ctn_de1,nil,nil,t_op_seae_fen1,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo2.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo3.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo4.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo16.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shiper.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo17.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_shouhuo.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo17.DisplayValue<>'' then
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_crm_client_tongzhi.fieldbyname('<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton25Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton23Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton21Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton22Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton16Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton17Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27>ֵ<EFBFBD><D6B5>б<EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton19Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton20Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo40Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo40);
|
|
|
t_op_seae2.DataSet['<27><>װ']:=total_package(dbmemo40);
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+t_op_seae2.DataSet.FieldByName('<27><>װ').asstring+' ONLY.';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo41Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo41);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo42Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=total_num(DBMemo42);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo41Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
kgs_cbm(DBMemo41,'KGS');
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo41.text;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBMemo42Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
kgs_cbm(DBMemo42,'CMB');
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DBMemo42.text;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY:'+ntoc(t_op_seae2.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+wwDBLookupCombo61.text+' ONLY.';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton37Click(Sender: TObject);
|
|
|
var
|
|
|
if_first:boolean;
|
|
|
max,j:integer;
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3><EFBFBD><EFBFBD>ܼ<EFBFBD><DCBC>룡<EFBFBD><EBA3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
t_op_seae_fen.First;
|
|
|
if_first:=true;
|
|
|
while not t_op_seae_fen.eof do
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
DBMemo2.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
|
|
|
DBMemo39.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo40.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring;
|
|
|
DBMemo41.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
DBMemo42.text:=t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
max:=DBMemo2.Lines.Count;
|
|
|
if DBMemo39.Lines.Count>max then max:=DBMemo39.Lines.Count;
|
|
|
if DBMemo40.Lines.Count>max then max:=DBMemo40.Lines.Count;
|
|
|
if DBMemo41.Lines.Count>max then max:=DBMemo41.Lines.Count;
|
|
|
if DBMemo42.Lines.Count>max then max:=DBMemo42.Lines.Count;
|
|
|
|
|
|
if max=DBMemo2.Lines.Count then
|
|
|
begin
|
|
|
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo2.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo2.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo2.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo39.Lines.Count then
|
|
|
begin
|
|
|
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo39.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo39.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo39.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo40.Lines.Count then
|
|
|
begin
|
|
|
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo40.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo40.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo40.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo41.Lines.Count then
|
|
|
begin
|
|
|
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo41.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo41.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo41.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
|
|
|
if max=DBMemo42.Lines.Count then
|
|
|
begin
|
|
|
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
for j:=1 to (max-DBMemo42.Lines.Count) do
|
|
|
begin
|
|
|
DBMemo42.Lines.Add(' ');
|
|
|
end;
|
|
|
DBMemo42.Lines.Add(t_op_seae_fen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
t_op_seae['<27><>װ']:='PACKAGES';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
try
|
|
|
frm_op_ctn:=tfrm_op_ctn.Create (self);
|
|
|
frm_op_ctn.t_op_ctn.DataSource:=t_op_seae2;
|
|
|
frm_op_ctn_type:=true;
|
|
|
op_ctn_limited:='0001';
|
|
|
frm_op_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_op_ctn.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo3Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_loaport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_loaport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo52Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsedit)or(t_op_seae2.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinPageControl1Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_op_seae_create=false then
|
|
|
exit;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
|
|
|
begin
|
|
|
if not assigned(frm_op_letter) then
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
|
|
|
begin
|
|
|
if if_open('022') or if_open('023') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if frm_ch_fee_sea.fra_fee1.t_ch_accept.Active then
|
|
|
frm_ch_fee_sea.fra_fee1.t_ch_accept.Requery();
|
|
|
if frm_ch_fee_sea.fra_fee1.t_ch_pay.Active then
|
|
|
frm_ch_fee_sea.fra_fee1.t_ch_pay.Requery();
|
|
|
end;
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet9 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_fenzhang) then
|
|
|
frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
|
|
|
frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
|
|
|
frm_op_seae_fenzhang.t_ch_fee.open;
|
|
|
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet9,nil,alClient);
|
|
|
frm_op_seae_fenzhang.show;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>䣡<EFBFBD><E4A3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N24Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N22Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<>䵥Ʊ' then
|
|
|
exit;
|
|
|
if t_op_seae.FieldByName('װ<>˷<EFBFBD>ʽ').asstring='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
if not t_op_seae_fen.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰƴ<C7B0><C6B4><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
if t_op_seae.FieldByName('<27><>װ<EFBFBD><D7B0>').asstring<>''then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD>Ϊƴ<CEAA>䵥Ʊ<E4B5A5><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƚ<EFBFBD><C8BD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>Ϣɾ<CFA2><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_seae.edit;
|
|
|
t_op_seae['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N27Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N29Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae_fen.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae_fen['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>˷<EFBFBD>ʽ']:='ƴ<>䵥Ʊ';
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.Requery();
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N9Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_add_ctn:=tfrm_op_add_ctn.Create (self);
|
|
|
frm_op_add_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_op_add_ctn.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton34Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton34.ClientToScreen(Point(0,bsSkinButton34.Height));
|
|
|
PopupMenu4.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo19.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo11.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_goods['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo5.DisplayValue='' then
|
|
|
exit;
|
|
|
if trim(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_daili['<27><><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
query_seae(1,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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_seae.dxDBGrid2Column3CustomDraw(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[dxDBGrid2Column3.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.FormCloseQuery(Sender: TObject;
|
|
|
var CanClose: Boolean);
|
|
|
begin
|
|
|
CanClose:=frm_close_query(t_op_seae);
|
|
|
CanClose:=frm_close_query(t_op_seae_fen);
|
|
|
CanClose:=frm_close_query(fra_op_card1.t_op_card);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EXCEL1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.State=dsinsert)or(t_op_seae2.DataSet.State=dsedit) then
|
|
|
t_op_seae2.DataSet.post;
|
|
|
try
|
|
|
frm_op_seae_excel:=tfrm_op_seae_excel.Create (self);
|
|
|
frm_op_seae_excel.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_excel.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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-6;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.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><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid2Column2CustomDraw(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><CBB3><EFBFBD>',ANode.Strings[dxDBGrid2Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo29);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
if bsSkinPageControl2.Visible then
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo16)
|
|
|
else
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo46);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo49KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit63);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit63KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo52KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo22);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo22KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo28);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit26);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit26KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit27);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit27KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo38);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo37);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo30);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo39);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit80KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit81);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit81KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit82);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit82KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit83);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo23);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo23KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo24KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo25KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo27);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo27KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo26);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo26KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit71);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit71KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit73);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit73KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit109);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit109KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit114);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit114KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit112);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit112KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit111);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit25KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.EDI1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.isempty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>е<EFBFBD><D0B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>EDI<44>ļ<EFBFBD><C4BC><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_op_seae_edi_yh) then
|
|
|
frm_op_seae_edi_yh:=tfrm_op_seae_edi_yh.Create(application);
|
|
|
frm_op_seae_edi_yh.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_edi_yh.free;
|
|
|
frm_op_seae_edi_yh:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Button1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
try
|
|
|
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
|
|
|
frm_op_seae_vessel.v_vessel_voyage.open;
|
|
|
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
|
|
|
op_seae_vessel_num:=1;
|
|
|
frm_op_seae_vessel.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_vessel.Free;
|
|
|
frm_op_seae_vessel:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit22);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_fenAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae_fen['<27><>վ']:=t_op_seae['<27><>վ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>˸<EFBFBD>']:=t_op_seae['<27><><EFBFBD>˸<EFBFBD>'];
|
|
|
t_op_seae_fen['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_seae['װ<><D7B0><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_seae['װ<>۴<EFBFBD><DBB4><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD≯ۿ<CCB8>']:=t_op_seae['<27><><EFBFBD≯ۿ<CCB8>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:=t_op_seae['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>'];
|
|
|
t_op_seae_fen['Ŀ<>ĵ<EFBFBD>']:=t_op_seae['Ŀ<>ĵ<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_seae['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_seae['<27><><EFBFBD>ѷ<EFBFBD>ʽ'];
|
|
|
t_op_seae_fen['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_seae['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><>ͷ']:=t_op_seae['<27><>ͷ'];
|
|
|
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>']:=t_op_seae['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD>˾'];
|
|
|
t_op_seae_fen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾'];
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit3Change(Sender: TObject);
|
|
|
begin
|
|
|
DBEdit3.Color:=dxgrid_color_fee(DBEdit3.text);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.DBEdit2Change(Sender: TObject);
|
|
|
begin
|
|
|
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',DBEdit2.text);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Enter(Sender: TObject);
|
|
|
begin
|
|
|
with frm_data_share do
|
|
|
begin
|
|
|
t_code_code.Filtered:=false;
|
|
|
t_code_code.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Enter(Sender: TObject);
|
|
|
begin
|
|
|
with frm_data_share do
|
|
|
begin
|
|
|
t_code_code.Filtered:=false;
|
|
|
t_code_code.Filter:='<27>ջ<EFBFBD><D5BB><EFBFBD>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Enter(Sender: TObject);
|
|
|
begin
|
|
|
with frm_data_share do
|
|
|
begin
|
|
|
t_code_code.Filtered:=false;
|
|
|
t_code_code.Filter:='֪ͨ<CDA8><D6AA>=1';
|
|
|
t_code_code.Filtered:=true;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo46.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo46.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo47.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo48.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo47.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo48.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo46KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo47KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo34);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo48KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo35);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo47);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo48);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo2.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo5.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
wwDBLookupCombo6.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo2.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo5Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo5.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo6Change(Sender: TObject);
|
|
|
begin
|
|
|
if frm_data_share.t_code_code.locate('<27><><EFBFBD><EFBFBD>',wwDBLookupCombo6.text,[]) then
|
|
|
begin
|
|
|
t_op_seae2.DataSet.edit;
|
|
|
t_op_seae2.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=frm_data_share.t_code_code.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo29KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo30KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo12Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.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_seae2.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo14Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae2.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae2.DataSet.state=dsinsert)or(t_op_seae2.DataSet.state=dsedit)then
|
|
|
begin
|
|
|
if RxDBLookupCombo14.DisplayValue='' then
|
|
|
exit;
|
|
|
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
|
|
|
t_op_seae2.DataSet['<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_seae.wwDBComboBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBComboBox2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBComboBox(Key,wwDBComboBox3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBDateTimePicker10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinDBCheckRadioBox5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_bsSkinDBCheckRadioBox(Key,bsSkinDBCheckRadioBox4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'¼<><C2BC>״̬'+''''+') '
|
|
|
+'order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton13Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա')
|
|
|
+' and <20><><EFBFBD><EFBFBD><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>'+''''+')) '
|
|
|
+'order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա')
|
|
|
+' and <20><><EFBFBD><EFBFBD><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>'+''''+')) '
|
|
|
+'order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N37Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա')
|
|
|
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
|
|
|
+'order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_op_seae.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo8Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo28Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo28.LookupDisplay:='ǩ<><C7A9><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo15Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo15.LookupDisplay:='<27><><EFBFBD>ѷ<EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>;<3B><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo20.LookupDisplay:='<27><><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N40Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet2.show;
|
|
|
if if_open('022') or if_open('023') then
|
|
|
begin
|
|
|
if not assigned(frm_ch_fee_sea) then
|
|
|
begin
|
|
|
frm_ch_fee_sea:=tfrm_ch_fee_sea.Create (self);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if frm_ch_fee_sea.fra_fee1.t_ch_accept.Active then
|
|
|
frm_ch_fee_sea.fra_fee1.t_ch_accept.Requery();
|
|
|
if frm_ch_fee_sea.fra_fee1.t_ch_pay.Active then
|
|
|
frm_ch_fee_sea.fra_fee1.t_ch_pay.Requery();
|
|
|
end;
|
|
|
frm_ch_fee_sea.ManualDock(bsSkinTabSheet2,nil,alClient);
|
|
|
frm_ch_fee_sea.Show;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N42Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet7.show;
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.open;
|
|
|
frm_op_seae_state.fra_op_state1.edit_state.Text:='1';
|
|
|
frm_op_seae_state.ManualDock(bsSkinTabSheet7,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N44Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet3.show;
|
|
|
if not assigned(frm_op_letter) then
|
|
|
frm_op_letter:=tfrm_op_letter.Create (self);
|
|
|
frm_op_letter.t_op_letter.DataSource:=t_op_seae2;
|
|
|
frm_op_letter.ManualDock(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_letter.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N46Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
bsSkinTabSheet6.show;
|
|
|
if not assigned(frm_op_seae_assistant) then
|
|
|
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
|
|
|
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae2;
|
|
|
frm_op_seae_assistant.ManualDock(bsSkinTabSheet6,nil,alClient);
|
|
|
frm_op_seae_assistant.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label4Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,frm_data_share.t_crm_client_weituo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label23Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_shiper);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label24Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>').asstring,frm_data_share.t_crm_client_shouhuo);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label29Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('֪ͨ<CDA8><D6AA>').asstring,frm_data_share.t_crm_client_tongzhi);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label33Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_daili);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label12Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><>վ').asstring,frm_data_share.t_crm_client_changzhan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label9Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label11Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').asstring,frm_data_share.t_crm_client_daili);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label10Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,frm_data_share.t_crm_client_baoguan);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label8Click(Sender: TObject);
|
|
|
begin
|
|
|
client_view(t_op_seae2.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').asstring,frm_data_share.t_crm_client_truck);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo2DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('016');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label125Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('097');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label7Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('011');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label35Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('071');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label30Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('015');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label73Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('012');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.Label164Click(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('007');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.wwDBLookupCombo61DblClick(Sender: TObject);
|
|
|
begin
|
|
|
open_code_edit('013');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_fen.first;
|
|
|
while not t_op_seae_fen.Eof do
|
|
|
begin
|
|
|
t_op_seae_fen.edit;
|
|
|
t_op_seae_fen['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:=t_op_seae['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>'];
|
|
|
t_op_seae_fen.post;
|
|
|
t_op_seae_fen.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.bsSkinButton14Click(Sender: TObject);
|
|
|
begin
|
|
|
if not (if_open('022') or if_open('023')) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_ch_fee_zhupiao) then
|
|
|
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
|
|
|
|
|
|
with frm_ch_fee_zhupiao do
|
|
|
begin
|
|
|
if if_open('022') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_accept.close;
|
|
|
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_ch_accept.open;
|
|
|
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
|
|
|
fra_fee_zhu1.dxDBGrid1.FullExpand;
|
|
|
fra_fee_zhu1.bsSkinPanel3.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee_zhu1.bsSkinPanel3.visible:=false;
|
|
|
if if_open('023') then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_ch_pay.close;
|
|
|
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_ch_pay.open;
|
|
|
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
|
|
|
fra_fee_zhu1.dxDBGrid2.FullExpand;
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible:=false;
|
|
|
|
|
|
if fra_fee_zhu1.bsSkinPanel3.visible and
|
|
|
fra_fee_zhu1.bsSkinPanel4.visible then
|
|
|
begin
|
|
|
fra_fee_zhu1.t_op_gain.close;
|
|
|
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
fra_fee_zhu1.t_op_gain.open;
|
|
|
end
|
|
|
else
|
|
|
fra_fee_zhu1.t_op_gain.close;
|
|
|
end;
|
|
|
frm_ch_fee_zhupiao.ShowModal;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N55Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('022') and if_open('023') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
t_op_seae.first;
|
|
|
while not t_op_seae.eof do
|
|
|
begin
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
t_op_seae.next;
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=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_seae.N51Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if if_open('022') and if_open('023') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=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_seae.N53Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_op_seae.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('022') and if_open('023') then
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self);
|
|
|
t_op_seae.DisableControls;
|
|
|
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if str='' then
|
|
|
str:=''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
end;
|
|
|
str:='('+str+')';
|
|
|
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD> in '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
|
|
|
frm_ch_piliang_seae.t_op_seae.open;
|
|
|
frm_ch_piliang_seae.ShowModal;
|
|
|
finally
|
|
|
t_op_seae.EnableControls;
|
|
|
frm_ch_piliang_seae.Free;
|
|
|
frm_ch_piliang_seae:=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_seae.RxDBLookupCombo31KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='<27><><EFBFBD><EFBFBD>;ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.RxDBLookupCombo31Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo31.LookupDisplay:='ҵ<><D2B5><EFBFBD><EFBFBD>Դ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N58Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae2;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self);
|
|
|
t_op_seae_huanhuo.insert;
|
|
|
frm_op_seae_huanhuo_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_huanhuo_do.Free;
|
|
|
frm_op_seae_huanhuo_do:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N60Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae2;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae_huanhuo.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.t_op_seae_huanhuoAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_seae_huanhuo['<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>']:=t_op_seae_huanhuo.DataSource.DataSet['ί<>е<EFBFBD>λ'];
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_op_seae_huanhuo['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N32Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae_fen1;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
try
|
|
|
frm_op_seae_huanhuo_do:=tfrm_op_seae_huanhuo_do.Create (self);
|
|
|
t_op_seae_huanhuo.insert;
|
|
|
frm_op_seae_huanhuo_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_huanhuo_do.Free;
|
|
|
frm_op_seae_huanhuo_do:=nil;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD>Ѿ<EFBFBD>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae.N26Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seae_huanhuo.DataSource:=t_op_seae_fen1;
|
|
|
t_op_seae_huanhuo.Requery();
|
|
|
if t_op_seae_huanhuo.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ȷ<EFBFBD>ϻ<EFBFBD><CFBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_op_seae_huanhuo.delete;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|