|
|
unit u_op_sealocal;
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon,DateUtils,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,inifiles,
|
|
|
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
|
|
|
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
Grids, Wwdbigrd, Wwdbgrid, FtpCli, IdBaseComponent, IdComponent,
|
|
|
IdTCPConnection, IdTCPClient, IdIntercept, IdLogBase, IdLogEvent,DBClient,
|
|
|
IdAntiFreezeBase, IdAntiFreeze, dxEditor, dxEdLib, dxDBELib, DBCtrlsEh
|
|
|
,ComObj,DsWebService,SoapHTTPClient,InvokeRegistry,XMLIntf,XMLDoc, xmldom, Xmlxform,
|
|
|
msxmldom, bsSkinBoxCtrls,DyxtService,Service,jfczService,myService,CaragtQuery_Cxwl,IdHTTP,
|
|
|
kbmMemTable, cxControls, cxContainer, cxCheckListBox, cxDBCheckListBox,
|
|
|
OleCtrls, SHDocVw, IdExplicitTLSClientServerBase, cxTreeView, cxEdit,
|
|
|
cxLabel;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_sealocal = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label47: TLabel;
|
|
|
Label49: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
Label53: TLabel;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
dxDBGrid1Column65: TdxDBGridColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridColumn;
|
|
|
IdLogEvent1: TIdLogEvent;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
Label80: TLabel;
|
|
|
Edit1: TEdit;
|
|
|
Label217: TLabel;
|
|
|
wwDBLookupCombo26: TwwDBLookupCombo;
|
|
|
Label218: TLabel;
|
|
|
Edit8: TEdit;
|
|
|
Label81: TLabel;
|
|
|
Edit2: TEdit;
|
|
|
Label58: TLabel;
|
|
|
wwDBComboBoxOP: TwwDBComboBox;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
N24: TMenuItem;
|
|
|
N26: TMenuItem;
|
|
|
dxDBGrid1Column22: TdxDBGridColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridColumn;
|
|
|
Label14: TLabel;
|
|
|
Edit9: TEdit;
|
|
|
Label19: TLabel;
|
|
|
Edit11: TEdit;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
Label2: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label16: TLabel;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Label18: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label164: TLabel;
|
|
|
Label8: TLabel;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBNumberEditEh2: TDBNumberEditEh;
|
|
|
RxDBLookupCombo11: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
|
Label7: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label25: TLabel;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBMemo24: TDBMemo;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
dxDBGrid1Column27: TdxDBGridColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridColumn;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
MenuItem1: TMenuItem;
|
|
|
MenuItem2: TMenuItem;
|
|
|
MenuItem7: TMenuItem;
|
|
|
MenuItem8: TMenuItem;
|
|
|
MenuItem9: TMenuItem;
|
|
|
fra_fee1: Tfra_fee;
|
|
|
RxDBLookupCombo57: TRxDBLookupCombo;
|
|
|
Label213: TLabel;
|
|
|
Label27: TLabel;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label28: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
Label29: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label30: TLabel;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
t_report1: TDataSource;
|
|
|
t_report: TADOQuery;
|
|
|
dxDBGrid1Column36: TdxDBGridColumn;
|
|
|
Label50: TLabel;
|
|
|
Label56: TLabel;
|
|
|
DBEdit17: TDBEdit;
|
|
|
Label57: TLabel;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label59: TLabel;
|
|
|
RxDBLookupCombo16: TRxDBLookupCombo;
|
|
|
Label60: TLabel;
|
|
|
RxDBLookupCombo17: TRxDBLookupCombo;
|
|
|
Label61: TLabel;
|
|
|
DBNumberEditEh3: TDBNumberEditEh;
|
|
|
Label62: TLabel;
|
|
|
Label63: TLabel;
|
|
|
DBNumberEditEh4: TDBNumberEditEh;
|
|
|
Label64: TLabel;
|
|
|
RxDBLookupCombo19: TRxDBLookupCombo;
|
|
|
Label65: TLabel;
|
|
|
RxDBLookupCombo20: TRxDBLookupCombo;
|
|
|
Label66: TLabel;
|
|
|
Label69: TLabel;
|
|
|
Label70: TLabel;
|
|
|
Label71: TLabel;
|
|
|
Label72: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label74: TLabel;
|
|
|
Label78: TLabel;
|
|
|
DBEdit31: TDBEdit;
|
|
|
Label89: TLabel;
|
|
|
Label90: TLabel;
|
|
|
wwDBDateTimePicker8: TwwDBDateTimePicker;
|
|
|
Label91: TLabel;
|
|
|
DBEdit33: TDBEdit;
|
|
|
Label92: TLabel;
|
|
|
DBEdit34: TDBEdit;
|
|
|
Label93: TLabel;
|
|
|
DBNumberEditEh5: TDBNumberEditEh;
|
|
|
Label94: TLabel;
|
|
|
Label95: TLabel;
|
|
|
Label96: TLabel;
|
|
|
RxDBLookupCombo23: TRxDBLookupCombo;
|
|
|
Label97: TLabel;
|
|
|
Label98: TLabel;
|
|
|
DBEdit36: TDBEdit;
|
|
|
Label99: TLabel;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
Label100: TLabel;
|
|
|
wwDBDateTimePicker14: TwwDBDateTimePicker;
|
|
|
Label101: TLabel;
|
|
|
RxDBLookupCombo24: TRxDBLookupCombo;
|
|
|
Label102: TLabel;
|
|
|
RxDBLookupCombo25: TRxDBLookupCombo;
|
|
|
Label103: TLabel;
|
|
|
DBEdit37: TDBEdit;
|
|
|
Label104: TLabel;
|
|
|
DBEdit40: TDBEdit;
|
|
|
Label105: TLabel;
|
|
|
DBEdit41: TDBEdit;
|
|
|
Label106: TLabel;
|
|
|
Label107: TLabel;
|
|
|
Label108: TLabel;
|
|
|
Label109: TLabel;
|
|
|
DBNumberEditEh6: TDBNumberEditEh;
|
|
|
DBNumberEditEh7: TDBNumberEditEh;
|
|
|
DBNumberEditEh8: TDBNumberEditEh;
|
|
|
Label110: TLabel;
|
|
|
Label111: TLabel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
Label54: TLabel;
|
|
|
DBEdit16: TDBEdit;
|
|
|
Label23: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
Label24: TLabel;
|
|
|
Label26: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
Label112: TLabel;
|
|
|
Label113: TLabel;
|
|
|
Label114: TLabel;
|
|
|
wwDBDateTimePicker15: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker16: TwwDBDateTimePicker;
|
|
|
Label115: TLabel;
|
|
|
Label116: TLabel;
|
|
|
wwDBDateTimePicker17: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker18: TwwDBDateTimePicker;
|
|
|
Label117: TLabel;
|
|
|
wwDBDateTimePicker19: TwwDBDateTimePicker;
|
|
|
Bevel1: TBevel;
|
|
|
Bevel2: TBevel;
|
|
|
Bevel3: TBevel;
|
|
|
Label1: TLabel;
|
|
|
DBEdit8: TDBEdit;
|
|
|
Label5: TLabel;
|
|
|
DBEdit38: TDBEdit;
|
|
|
DBCheckBox1: TDBCheckBox;
|
|
|
DBCheckBox2: TDBCheckBox;
|
|
|
Label67: TLabel;
|
|
|
Label68: TLabel;
|
|
|
DBCheckBox3: TDBCheckBox;
|
|
|
DBCheckBox4: TDBCheckBox;
|
|
|
DBCheckBox5: TDBCheckBox;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
Label75: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
wwDBLookupCombo5: TwwDBLookupCombo;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
wwDBLookupCombo6: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo18: TRxDBLookupCombo;
|
|
|
Bevel4: TBevel;
|
|
|
bsSkinComboBox2: TbsSkinComboBox;
|
|
|
dxDBGrid1Column31: TdxDBGridColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridColumn;
|
|
|
Label51: TLabel;
|
|
|
Label76: TLabel;
|
|
|
Label77: TLabel;
|
|
|
Label79: TLabel;
|
|
|
Label88: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
dxDBGrid1Column40: TdxDBGridColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridColumn;
|
|
|
DBComboBoxEh2: TDBComboBoxEh;
|
|
|
DBComboBoxEh3: TDBComboBoxEh;
|
|
|
DBComboBoxEh4: TDBComboBoxEh;
|
|
|
DBComboBoxEh5: TDBComboBoxEh;
|
|
|
Label38: TLabel;
|
|
|
Label36: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label39: TLabel;
|
|
|
Label40: TLabel;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
Label43: TLabel;
|
|
|
Label44: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Label46: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label82: TLabel;
|
|
|
Label83: TLabel;
|
|
|
Label84: TLabel;
|
|
|
Label85: TLabel;
|
|
|
Label86: TLabel;
|
|
|
Label87: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit39: TDBEdit;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
DBEdit1: TDBEdit;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBNumberEditEh1: TDBNumberEditEh;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
DBEdit13: TDBEdit;
|
|
|
wwDBLookupCombo21: TwwDBLookupCombo;
|
|
|
wwDBDateTimePicker7: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo4: TwwDBLookupCombo;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit45: TDBEdit;
|
|
|
DBEdit48: TDBEdit;
|
|
|
DBEdit49: TDBEdit;
|
|
|
wwDBComboBox13: TwwDBComboBox;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo9: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
DBComboBoxEh1: TDBComboBoxEh;
|
|
|
DBEdit50: TDBEdit;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
DBComboBoxEh6: TDBComboBoxEh;
|
|
|
DBComboBoxEh7: TDBComboBoxEh;
|
|
|
DBComboBoxEh8: TDBComboBoxEh;
|
|
|
DBComboBoxEh9: TDBComboBoxEh;
|
|
|
DBComboBoxEh10: TDBComboBoxEh;
|
|
|
DBComboBoxEh11: TDBComboBoxEh;
|
|
|
DBComboBoxEh12: TDBComboBoxEh;
|
|
|
DBComboBoxEh13: TDBComboBoxEh;
|
|
|
DBComboBoxEh14: TDBComboBoxEh;
|
|
|
dxDBGrid1Column43: TdxDBGridColumn;
|
|
|
dxDBGrid1Column44: TdxDBGridColumn;
|
|
|
dxDBGrid1Column45: TdxDBGridColumn;
|
|
|
dxDBGrid1Column46: TdxDBGridColumn;
|
|
|
t_code_vessel: TADOQuery;
|
|
|
t_code_vessel1: TDataSource;
|
|
|
DBNumberEditEh9: TDBNumberEditEh;
|
|
|
dxDBGrid1Column47: TdxDBGridColumn;
|
|
|
dxDBGrid1Column48: TdxDBGridColumn;
|
|
|
dxDBGrid1Column49: TdxDBGridColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridColumn;
|
|
|
dxDBGrid1Column59: TdxDBGridColumn;
|
|
|
dxDBGrid1Column60: TdxDBGridColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid1Column62: TdxDBGridColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridColumn;
|
|
|
Label118: TLabel;
|
|
|
DBEdit19: TDBEdit;
|
|
|
dxDBGrid1Column64: TdxDBGridColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridColumn;
|
|
|
dxDBGrid1Column68: TdxDBGridColumn;
|
|
|
dxDBGrid1Column69: TdxDBGridColumn;
|
|
|
Label119: TLabel;
|
|
|
Edit4: TEdit;
|
|
|
Label120: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Change(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_seaeAfterInsert(DataSet: TDataSet);
|
|
|
procedure dxDBGrid1CustomDraw(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 RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
procedure t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
procedure MenuItem7Click(Sender: TObject);
|
|
|
procedure MenuItem1Click(Sender: TObject);
|
|
|
procedure MenuItem9Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo3Change(Sender: TObject);
|
|
|
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit39KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit38KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBNumberEditEh2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBNumberEditEh1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure Notebook1PageChanged(Sender: TObject);
|
|
|
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
procedure DBComboBoxEh1DropDown(Sender: TObject);
|
|
|
procedure RxDBLookupCombo2Change(Sender: TObject);
|
|
|
procedure DBEdit8Change(Sender: TObject);
|
|
|
procedure DBEdit38Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo23Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo23Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo24Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo24Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo25Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo10Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Change(Sender: TObject);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N26Click(Sender: TObject);
|
|
|
procedure Label96Click(Sender: TObject);
|
|
|
procedure Label83Click(Sender: TObject);
|
|
|
procedure Label164Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column40CustomDraw(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 dxDBGrid1Column41CustomDraw(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 dxDBGrid1Column42CustomDraw(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 Label17Click(Sender: TObject);
|
|
|
procedure DBComboBoxEh2CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh2DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh3CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh3DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh4CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh4DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh5CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh5DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh4Change(Sender: TObject);
|
|
|
procedure DBComboBoxEh6CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh6DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh7CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh7DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh8CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh8DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh9CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh9DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh10CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh10DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh11CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh11DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh12CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh12DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh13CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh13DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh14CloseUp(Sender: TObject; Accept: Boolean);
|
|
|
procedure DBComboBoxEh14DropDown(Sender: TObject);
|
|
|
procedure DBComboBoxEh6Change(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
AbortTransfer: Boolean;
|
|
|
TransferrignData: Boolean;
|
|
|
BytesToTransfer: LongWord;
|
|
|
STime: TDateTime;
|
|
|
mServiceSoap_Ds:DsWebServiceSoap;
|
|
|
mHttpRIO_ds:THTTPRIO;
|
|
|
|
|
|
mServiceSoap_dy:DyxtServiceSoap;
|
|
|
mServiceSoap_yzh:ServiceSoap;
|
|
|
mServiceSoap_zc:CaragtQuery_CxwlSoap;
|
|
|
mHttpRIO_dy,mHttpRIO_yzh,mHttpRIO_zc:THTTPRIO;
|
|
|
function DoPost(_URL:string;_Referer:string;_Order:TStringList):String; //<2F><><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
procedure SetState(response:string) ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure getwebservice_dy; //<2F><>ȡ
|
|
|
procedure getwebservice_yzh; //<2F><>ȡ
|
|
|
procedure getwebservice_zc; //<2F><>ȡ
|
|
|
procedure dewebservice; //<2F>ر<EFBFBD>
|
|
|
|
|
|
procedure GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure getssczinfor(mblno:string);
|
|
|
|
|
|
|
|
|
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
|
|
|
function getCtnAfr(code:string):string;
|
|
|
function getPkgAfr(code:string):string;
|
|
|
function formatAfrstr(str:string):string;
|
|
|
procedure PutToDebugLog(Operation, S1: String);
|
|
|
function isEditrue(DataSet:TDataSet): boolean;
|
|
|
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
dbserver:string;
|
|
|
edi_addseai:boolean;
|
|
|
function GetStrChar(str:String):string;
|
|
|
function GetStrChar_1(str:String):string;
|
|
|
function GetpkgsEdi(pkgs: String): String;
|
|
|
procedure UpdateCTN(BSNO:STRING);
|
|
|
procedure getwebservice_ds;
|
|
|
function IsZhongwen(Str: String): Boolean;
|
|
|
function CreateSIEdiFile_XML:TStrings;
|
|
|
function GetCtnCode(ctnkind,ctnsize:String): String;
|
|
|
|
|
|
procedure UpdateInfor;
|
|
|
|
|
|
procedure SelectReciveData(bsno,mblno:string);
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_sealocal: Tfrm_op_sealocal;
|
|
|
AverageSpeed: Double = 0;
|
|
|
STATE,EVENT,_S:String;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_sys_progress, u_op_local_truck,
|
|
|
u_code_goods, u_crm_query, u_op_seae_state;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.SetState(response: string);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.DoPost(_URL:string;_Referer:string;_order:TStringList):String;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.getwebservice_dy;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.getwebservice_zc;
|
|
|
begin
|
|
|
try
|
|
|
mHttpRIO_zc:=THTTPRIO.Create(nil);
|
|
|
mHttpRIO_zc.WSDLLocation:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx?WSDL';
|
|
|
mHttpRIO_zc.URL:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx';
|
|
|
mHttpRIO_zc.Port:='CaragtQuery_CxwlSoap';
|
|
|
mHttpRIO_zc.Service:='CaragtQuery_Cxwl';
|
|
|
mHttpRIO_zc.HTTPWebNode.UseUTF8InHeader:=true;
|
|
|
mServiceSoap_zc:=mHttpRIO_zc as CaragtQuery_CxwlSoap;
|
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(CaragtQuery_CxwlSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
except
|
|
|
on E:Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.getwebservice_yzh;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.dewebservice;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.getssczinfor(mblno:string);//qqctu<74><75>ȡ<EFBFBD>˵ֱ<CBB5><D6B1><EFBFBD><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD><EFBFBD><EFBFBD>Ϣ
|
|
|
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.setconcolor;
|
|
|
procedure consetcolor(fielname:String);
|
|
|
var
|
|
|
i:integer;
|
|
|
scolor:string;
|
|
|
begin
|
|
|
scolor:=get_parameters_value(144,'clInfoBk');
|
|
|
with bsSkinTabSheet1 do begin
|
|
|
for i:=0 to ControlCount-1 do begin
|
|
|
if Controls[i] is TwwDBComboBox then
|
|
|
begin
|
|
|
if TwwDBComboBox(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TwwDBComboBox(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TwwDBLookupCombo then begin
|
|
|
if TwwDBLookupCombo(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TwwDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TDBEdit then begin
|
|
|
if TDBEdit(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TwwDBDateTimePicker then begin
|
|
|
if TwwDBDateTimePicker(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TwwDBDateTimePicker(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TDBMemo then begin
|
|
|
if TDBMemo(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TDBMemo(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TRxDBLookupCombo then begin
|
|
|
if TRxDBLookupCombo(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TDBComboBoxEh then begin
|
|
|
if TDBComboBoxEh(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TDBComboBoxEh(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TDBNumberEditEh then begin
|
|
|
if TDBNumberEditEh(Controls[i]).DataField=fielname then
|
|
|
begin
|
|
|
TDBNumberEditEh(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
with bsSkinPanel1 do begin
|
|
|
for i:=0 to ControlCount-1 do begin
|
|
|
if Controls[i] is TDBEdit then begin
|
|
|
if TDBEdit(Controls[i]).DataField=fielname then begin
|
|
|
TDBEdit(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end else if Controls[i] is TRxDBLookupCombo then begin
|
|
|
if TRxDBLookupCombo(Controls[i]).DataField=fielname then begin
|
|
|
TRxDBLookupCombo(Controls[i]).Color:=StringToColor(scolor);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
begin
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>ͬ<EFBFBD><CDAC>ɫ<EFBFBD><C9AB>ʾ
|
|
|
frm_data_share.t_code_empty.Filtered:=false;
|
|
|
frm_data_share.t_code_empty.Filter:='<27><>=''t_op_sealocal''';
|
|
|
frm_data_share.t_code_empty.Filtered:=true;
|
|
|
frm_data_share.t_code_empty.First;
|
|
|
while not frm_data_share.t_code_empty.Eof do
|
|
|
begin
|
|
|
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
frm_data_share.t_code_empty.next;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.UpdateInfor;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
function Tfrm_op_sealocal.GetStrChar_1(str:String):string;
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
result:='';
|
|
|
if str='' then exit;
|
|
|
for i:=1 to length(Str) do begin
|
|
|
if str[i] in ['0','1','2','3','4','5','6','7','8','9','.']
|
|
|
then
|
|
|
else
|
|
|
result:=result+str[i];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.GetStrChar(str:String):string;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.IsZhongwen(Str: String): Boolean;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.GetCtnCode(ctnkind,ctnsize:String): String;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.GetpkgsEdi(pkgs: String): String;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
function Tfrm_op_sealocal.isEditrue(DataSet:TDataSet): boolean;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.CreateSIEdiFile_XML:TStrings;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.getwebservice_ds;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.UpdateCTN(BSNO:STRING);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
|
|
|
savewwgrid(fra_fee1.wwDBGrid1,'<27><>óӦ<C3B3><D3A6>');
|
|
|
savewwgrid(fra_fee1.wwDBGrid2,'<27><>óӦ<C3B3><D3A6>');
|
|
|
|
|
|
frm_op_sealocal.Hide;
|
|
|
frm_op_sealocal.ManualFloat(frm_op_sealocal.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_sealocal');
|
|
|
action:=cafree;
|
|
|
frm_op_sealocal:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/10);
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton25.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.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>';
|
|
|
//DBEdit3.OnChange(Sender);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton4Click(Sender: TObject);
|
|
|
var
|
|
|
i,j:Integer;
|
|
|
strno:string;
|
|
|
t_ch_fee:TADOQuery;
|
|
|
begin
|
|
|
t_ch_fee:=CreateAdoQuery;
|
|
|
with t_ch_fee do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add(' select * from t_ch_fee');
|
|
|
SQL.Add(' where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
Parameters[0].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
open;First;
|
|
|
if recordcount>0 then
|
|
|
begin
|
|
|
application.MessageBox('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7>ò<EFBFBD><C3B2><EFBFBD>ֱ<EFBFBD><D6B1>ɾ<EFBFBD><C9BE>! <20><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL);
|
|
|
exit;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(t_ch_fee);
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
begin
|
|
|
t_op_seae.delete;
|
|
|
t_op_seae.Refresh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_op_seae.GetBookmark;
|
|
|
t_op_seae.Refresh;
|
|
|
t_op_seae.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.FormShow(Sender: TObject);
|
|
|
var
|
|
|
s:string;
|
|
|
begin
|
|
|
Notebook1.PageIndex:=0;
|
|
|
|
|
|
t_code_vessel.Open;
|
|
|
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
{
|
|
|
t_op_seae.SQL.Add('select top 100 * from t_op_sealocal where '
|
|
|
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+') order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc ');
|
|
|
}
|
|
|
|
|
|
t_op_seae.SQL.Add('select * from t_op_sealocal where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
|
|
|
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
|
|
|
+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no')
|
|
|
+' Order by ί<>б<EFBFBD><D0B1><EFBFBD>');
|
|
|
|
|
|
t_op_seae.open;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if if_open('293') or if_open('294') then
|
|
|
begin
|
|
|
fra_fee1.edit_type.text:='9';
|
|
|
fra_fee1.edit_data.text:='0009';
|
|
|
fra_fee1.edit_report.text:='<27><>ó';
|
|
|
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
|
|
|
if strtobool(get_parameters_value(150,'false')) then
|
|
|
fra_fee1.bsSkinPanel3.Visible:=true;
|
|
|
fra_fee1.DBEdit48.DataSource:=t_op_seae1;
|
|
|
|
|
|
|
|
|
if if_open('293') then
|
|
|
begin
|
|
|
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
|
|
|
if (strtobool(get_parameters_value(153,'false'))=true) then begin
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_accept.close;
|
|
|
fra_fee1.t_ch_accept.SQL.Clear;
|
|
|
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+' order by ˳<><CBB3>,CH_ID');
|
|
|
end else begin
|
|
|
fra_fee1.t_ch_accept.close;
|
|
|
fra_fee1.t_ch_accept.SQL.Clear;
|
|
|
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+' order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_accept.open;
|
|
|
end else begin
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_accept.close;
|
|
|
fra_fee1.t_ch_accept.SQL.Clear;
|
|
|
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_accept.open;
|
|
|
end;
|
|
|
fra_fee1.a_shen_delete.open;
|
|
|
fra_fee1.a_shen_modify_old.open;
|
|
|
fra_fee1.a_shen_modify_new.open;
|
|
|
fra_fee1.Panel3.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee1.Panel3.visible:=false;
|
|
|
if if_open('294') then
|
|
|
begin
|
|
|
fra_fee1.t_ch_pay.DataSource:=t_op_seae1;
|
|
|
if (strtobool(get_parameters_value(153,'false'))=true) then begin
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_pay.close;
|
|
|
fra_fee1.t_ch_pay.SQL.Clear;
|
|
|
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+' order by ˳<><CBB3>,CH_ID');
|
|
|
end else begin
|
|
|
fra_fee1.t_ch_pay.close;
|
|
|
fra_fee1.t_ch_pay.SQL.Clear;
|
|
|
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
|
|
|
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+' order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_pay.open;
|
|
|
end else begin
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('208')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_pay.close;
|
|
|
fra_fee1.t_ch_pay.SQL.Clear;
|
|
|
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_pay.open;
|
|
|
end;
|
|
|
fra_fee1.p_shen_delete.open;
|
|
|
fra_fee1.p_shen_modify_old.open;
|
|
|
fra_fee1.p_shen_modify_new.open;
|
|
|
fra_fee1.Panel1.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee1.Panel1.visible:=false;
|
|
|
|
|
|
if fra_fee1.Panel1.visible and
|
|
|
fra_fee1.Panel3.visible then
|
|
|
begin
|
|
|
if if_open('228') then begin
|
|
|
fra_fee1.Panel8.Visible:=true;
|
|
|
fra_fee1.Panel8.Height:=20;
|
|
|
end else
|
|
|
fra_fee1.Panel8.Visible:=false;
|
|
|
fra_fee1.t_op_gain.DataSource:=t_op_seae1;
|
|
|
fra_fee1.t_op_gain.open;
|
|
|
|
|
|
fra_fee1.Panel9.Visible:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee1.Panel8.Visible:=false;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee1.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
|
|
|
loadwwgrid(fra_fee1.wwDBGrid1,'<27><>óӦ<C3B3><D3A6>');
|
|
|
loadwwgrid(fra_fee1.wwDBGrid2,'<27><>óӦ<C3B3><D3A6>');
|
|
|
|
|
|
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,215);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton8Click(Sender: TObject);
|
|
|
VAR
|
|
|
str:widestring;
|
|
|
begin
|
|
|
str:='where '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
|
|
|
|
|
|
|
|
|
|
|
|
if Edit3.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
|
|
|
if Edit4.text<>''then
|
|
|
str:=str+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
|
|
|
|
|
|
if wwDBDateTimePicker9.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
if wwDBDateTimePicker12.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if wwDBDateTimePicker11.text<>''then
|
|
|
str:=str+' and '+bsSkinComboBox2.text+'>='+''''+wwDBDateTimePicker11.text+'''';
|
|
|
if wwDBDateTimePicker13.text<>''then
|
|
|
str:=str+' and '+bsSkinComboBox2.text+'<='+''''+wwDBDateTimePicker13.text+'''';
|
|
|
|
|
|
if wwDBComboBoxOP.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD>='+''''+wwDBComboBoxOP.text+'''';
|
|
|
|
|
|
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',wwDBLookupCombo26.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit8.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>˾','ģ<><C4A3>',Edit9.text);
|
|
|
str:=query_tiaojian(1,str,'Ŀ<>ĸ<EFBFBD>','ģ<><C4A3>',Edit11.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit2.text);
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit1.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'ί<>е<EFBFBD>λ','<27><><EFBFBD><EFBFBD>',RxDBLookupCombo57.DisplayValues[1]);
|
|
|
|
|
|
|
|
|
|
|
|
t_op_seae.close;
|
|
|
t_op_seae.sql.clear;
|
|
|
t_op_seae.sql.add('select * from t_op_sealocal '+str+' order by ί<>б<EFBFBD><D0B1><EFBFBD>');
|
|
|
t_op_seae.open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit1.text:='';
|
|
|
Edit2.text:='';
|
|
|
Edit3.text:='';
|
|
|
Edit8.text:='';
|
|
|
Edit9.text:='';
|
|
|
Edit11.text:='';
|
|
|
wwDBDateTimePicker9.text:='';
|
|
|
wwDBDateTimePicker12.text:='';
|
|
|
wwDBDateTimePicker11.text:='';
|
|
|
wwDBDateTimePicker13.text:='';
|
|
|
wwDBLookupCombo26.Clear;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.getCtnAfr(code: string): string;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.getPkgAfr(code: string): string;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_sealocal.formatAfrstr(str: string): string;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo1Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit)then
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.PutToDebugLog(Operation, S1: String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton15Click(Sender: TObject);
|
|
|
var
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
bok:Tbookmark;
|
|
|
if_first:boolean;
|
|
|
s1,s2,s3,s4,s:widestring;
|
|
|
|
|
|
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton25Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
if dxDBGrid1.SelectedCount>0 then
|
|
|
begin
|
|
|
for i:=0 to dxDBGrid1.SelectedCount-1 do begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
if i=0 then
|
|
|
str:='('+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''
|
|
|
else
|
|
|
str:=str+','+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
end;
|
|
|
end else begin
|
|
|
str:='('+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
end;
|
|
|
str:=str+')';
|
|
|
|
|
|
|
|
|
|
|
|
t_report.close;
|
|
|
t_report.sql.clear;
|
|
|
t_report.sql.add('select * from t_op_sealocal '
|
|
|
+'where <20><><EFBFBD><EFBFBD> in '+str
|
|
|
+' order by <20><><EFBFBD><EFBFBD>');
|
|
|
t_report.open;
|
|
|
|
|
|
sys_print('<27><>óί<C3B3><CEAF>',2,t_op_seae1,t_report1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.SelectReciveData(bsno,mblno:string);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_seae,'0001');
|
|
|
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
|
|
|
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.t_op_seaeAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=date;
|
|
|
t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').Value:='<27><>ó';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').Value:=Date;
|
|
|
t_op_seae.fieldbyname('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').Value:=subComp;
|
|
|
t_op_seae.fieldbyname('<27>Ƿ<EFBFBD>Σ<EFBFBD><CEA3>Ʒ').AsBoolean:=false;
|
|
|
t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7>걨').AsBoolean:=false;
|
|
|
t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>챣<EFBFBD><ECB1A3>').AsBoolean:=false;
|
|
|
t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsBoolean:=false;
|
|
|
t_op_seae.fieldbyname('<27>Ƿ<EFBFBD><C7B7>һ<EFBFBD>').AsBoolean:=false;
|
|
|
|
|
|
|
|
|
t_op_seae.fieldbyname('ҵ<><D2B5>״̬').Value:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').Value:='¼<><C2BC>״̬';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:='';
|
|
|
t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:='<27><>ͨ<EFBFBD><CDA8>';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬').Value:='';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=null;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.dxDBGrid1CustomDraw(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
|
|
|
if uppercase(ANode.Strings[dxDBGrid1Column28.Index])='TRUE' then begin
|
|
|
AColor:=clRed;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo6Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo6);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo6Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo6);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo1.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo1.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo2Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo2Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo3Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo3Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo11Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo11Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo11.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.t_op_seaeBeforeCancel(DataSet: TDataSet);
|
|
|
begin
|
|
|
delete_no(t_op_seae);
|
|
|
if t_op_seae.State=dsinsert then
|
|
|
if not t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
|
|
|
delwtno(t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.t_op_seaeBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
stl,s_shipper,s_cons,s_notify,s_marks,s_descrip:string;
|
|
|
sl:TStringList;
|
|
|
i,Days:Integer;
|
|
|
code_trade,code_source,bstype:string;
|
|
|
begin
|
|
|
if frm_data_share.t_sys_noset.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','ί<>б<EFBFBD><D0B1><EFBFBD>',[]) then
|
|
|
begin
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
|
|
|
if t_op_seae.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_seae.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
|
|
|
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(6,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
|
|
|
else
|
|
|
t_op_seae['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(6,subComp,department,employee,t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
end;
|
|
|
|
|
|
if op_empty('t_op_sealocal',t_op_seae) then //<2F><>Ϊ<EFBFBD><CEAA><EFBFBD>ж<EFBFBD>
|
|
|
abort;
|
|
|
|
|
|
if t_op_seae.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(Date,getbsno('','EL'));
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
end;
|
|
|
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;
|
|
|
|
|
|
|
|
|
|
|
|
if trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)<>'' then
|
|
|
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',trim(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring),[loPartialKey]) then
|
|
|
begin
|
|
|
showmessage('ϵͳ<CFB5>в<EFBFBD><D0B2><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˶<EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><>ͨ<EFBFBD><CDA8>' then
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;Sql.Clear;
|
|
|
Sql.Add('select count(*) as c');
|
|
|
Sql.Add('From t_op_sealocal');
|
|
|
Sql.Add('where <20><><EFBFBD><EFBFBD><>:Bsno and ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><>ͨ<EFBFBD><CDA8>''');
|
|
|
Sql.Add('and <20><><EFBFBD><EFBFBD><>'''' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5><>'''' and <20><><EFBFBD><EFBFBD><>''''');
|
|
|
Sql.Add('and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>=:mblno and <20><><EFBFBD><EFBFBD>=:CNTNo');
|
|
|
Parameters.ParamByName('Bsno').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Parameters.ParamByName('mblno').Value:=t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring;
|
|
|
Parameters.ParamByName('CNTNo').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Open;First;
|
|
|
if fieldbyname('c').AsInteger<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+t_op_seae.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring+' , '+' <20><><EFBFBD><EFBFBD> '+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'<27>ظ<EFBFBD><D8B8><EFBFBD>');
|
|
|
abort;
|
|
|
end
|
|
|
finally
|
|
|
freeandnil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.MenuItem7Click(Sender: TObject);
|
|
|
var
|
|
|
afield,afieldfee : variant;
|
|
|
aOR_ID:integer;
|
|
|
aQuery:TAdoQuery;
|
|
|
i:integer;
|
|
|
bsno,id:string;
|
|
|
Boolean_Ctn:Boolean;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
begin
|
|
|
exit;
|
|
|
MessageDlg('û<>и<EFBFBD><D0B8>Ƶ<EFBFBD><C6B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD>',mtWarning,[mbok],0);
|
|
|
end;
|
|
|
afield := vararraycreate([0,t_op_seae.fieldcount-1],varvariant);
|
|
|
for i := 0 to (t_op_seae.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=t_op_seae.fields[i].value ;
|
|
|
end;
|
|
|
bsno:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
|
|
|
t_op_seae.append;
|
|
|
for i := 0 to (t_op_seae.fieldcount-1) do
|
|
|
begin
|
|
|
if (t_op_seae.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'ί<>б<EFBFBD><D0B1><EFBFBD>')
|
|
|
then
|
|
|
t_op_seae.fields[i].value := afield[i] ;
|
|
|
end;
|
|
|
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
|
|
|
|
|
|
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬']:='';
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=date;
|
|
|
t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').Value:='<27><>ó';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').Value:=Date;
|
|
|
t_op_seae.fieldbyname('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').Value:=subComp;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.MenuItem1Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
t_op_seae.append;
|
|
|
|
|
|
|
|
|
t_op_seae['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬']:='';
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
|
|
|
|
|
|
Notebook1.PageIndex:=1;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.MenuItem9Click(Sender: TObject);
|
|
|
var
|
|
|
afield,afieldfee : variant;
|
|
|
aOR_ID:integer;
|
|
|
aQuery:TAdoQuery;
|
|
|
i:integer;
|
|
|
bsno,id:string;
|
|
|
Boolean_Ctn:Boolean;
|
|
|
begin
|
|
|
if t_op_seae.IsEmpty then
|
|
|
begin
|
|
|
exit;
|
|
|
MessageDlg('û<>и<EFBFBD><D0B8>Ƶ<EFBFBD><C6B5><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD>',mtWarning,[mbok],0);
|
|
|
end;
|
|
|
afield := vararraycreate([0,t_op_seae.fieldcount-1],varvariant);
|
|
|
for i := 0 to (t_op_seae.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=t_op_seae.fields[i].value ;
|
|
|
end;
|
|
|
bsno:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
|
|
|
|
|
|
t_op_seae.append;
|
|
|
for i := 0 to (t_op_seae.fieldcount-1) do
|
|
|
begin
|
|
|
if (t_op_seae.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
and (t_op_seae.fields[i].FieldName<>'ί<>б<EFBFBD><D0B1><EFBFBD>')
|
|
|
then
|
|
|
t_op_seae.fields[i].value := afield[i] ;
|
|
|
end;
|
|
|
t_op_seae['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>';
|
|
|
|
|
|
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬']:='';
|
|
|
t_op_seae['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
|
|
|
t_op_seae.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=date;
|
|
|
t_op_seae.fieldbyname('װ<>˷<EFBFBD>ʽ').Value:='<27><>ó';
|
|
|
t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').Value:=Date;
|
|
|
t_op_seae.fieldbyname('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').Value:=subComp;
|
|
|
|
|
|
|
|
|
Notebook1.PageIndex:=1;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo3Change(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
|
|
|
if t_op_seae.State in [dsinsert,dsEdit] then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo3.DisplayValues[1],[])then
|
|
|
begin
|
|
|
t_op_seae['װ<><D7B0><EFBFBD>ص<EFBFBD>']:=frm_data_share.t_crm_client_all.fieldbyname('ͨѶ<CDA8><D1B6>ַ').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBDateTimePicker3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBDateTimePicker6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBDateTimePicker4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBDateTimePicker2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit1);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit39KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit38KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit39);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBLookupCombo52KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBNumberEditEh(Key,DBNumberEditEh1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit6);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBNumberEditEh(Key,DBNumberEditEh2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBNumberEditEh2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo11);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo5);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo24);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBNumberEditEh1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit5);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo3);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Notebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if Notebook1.PageIndex<>0 then
|
|
|
begin
|
|
|
setconcolor;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.wwDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo9Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo9.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo9Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo9.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh1DropDown(Sender: TObject);
|
|
|
var AdoQuery1:TAdoQuery;
|
|
|
begin
|
|
|
DBComboBoxEh1.items.clear;
|
|
|
AdoQuery1:=CreateAdoQuery;
|
|
|
with AdoQuery1 do
|
|
|
try
|
|
|
Close;sql.Clear;
|
|
|
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
|
|
|
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
|
|
|
Open;first;
|
|
|
while not Eof do
|
|
|
begin
|
|
|
DBComboBoxEh1.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae1.DataSet.State in [dsinsert,dsEdit] then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo2.DisplayValues[1],[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
|
|
|
begin
|
|
|
t_op_seae1.Dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
t_op_seae1.Dataset.fieldbyname('<27><>ƱҪ<C6B1><D2AA>').asstring:=frm_data_share.t_crm_client_weituo.fieldbyname('˰<><CBB0>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit8Change(Sender: TObject);
|
|
|
begin
|
|
|
DBEdit2.Color:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',DBEdit8.text);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBEdit38Change(Sender: TObject);
|
|
|
begin
|
|
|
DBEdit38.Color:=dxgrid_color_fee(DBEdit38.text);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo10Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo10Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo16Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo16);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo16Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo16);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo17Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo17);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo17Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo17);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo19Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo19);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo19Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo19);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo20Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo20);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo20Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo20);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo23Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo23.LookupDisplay:='<27><><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo23Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo23.LookupDisplay:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo24Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo24);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo24Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo23);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo25Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo25);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo4);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo5Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo5);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo5Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo5);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo18Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo18);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo18Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo18);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo10Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae1.DataSet.State in [dsinsert,dsEdit] then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_truck.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo10.DisplayValues[1],[])then
|
|
|
begin
|
|
|
t_op_seae1.Dataset.fieldbyname('װ<><D7B0><EFBFBD><EFBFBD>Ʊ˰<C6B1><CBB0>').asstring:=frm_data_share.t_crm_client_truck.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.RxDBLookupCombo4Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if t_op_seae1.DataSet.State in [dsinsert,dsEdit] then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_truck.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo4.DisplayValues[1],[])then
|
|
|
begin
|
|
|
t_op_seae1.Dataset.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD>Ʊ˰<C6B1><CBB0>').asstring:=frm_data_share.t_crm_client_truck.fieldbyname('<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0>').asstring;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if not assigned(frm_op_local_truck) then
|
|
|
frm_op_local_truck:=tfrm_op_local_truck.Create(application);
|
|
|
frm_op_local_truck.ComeOut:=true;
|
|
|
frm_op_local_truck.ShowModal;
|
|
|
finally
|
|
|
frm_op_local_truck.free;
|
|
|
frm_op_local_truck:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.N26Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if not assigned(frm_op_local_truck) then
|
|
|
frm_op_local_truck:=tfrm_op_local_truck.Create(application);
|
|
|
frm_op_local_truck.ComeOut:=false;
|
|
|
frm_op_local_truck.ShowModal;
|
|
|
finally
|
|
|
frm_op_local_truck.free;
|
|
|
frm_op_local_truck:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Label96Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('007') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_goods:=tfrm_code_goods.Create (self);
|
|
|
frm_code_goods.ShowModal;
|
|
|
finally
|
|
|
frm_code_goods.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Label83Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('007') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_goods:=tfrm_code_goods.Create (self);
|
|
|
frm_code_goods.ShowModal;
|
|
|
finally
|
|
|
frm_code_goods.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Label164Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('007') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_goods:=tfrm_code_goods.Create (self);
|
|
|
frm_code_goods.ShowModal;
|
|
|
finally
|
|
|
frm_code_goods.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.dxDBGrid1Column40CustomDraw(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
|
|
|
if Trim(ANode.Strings[dxDBGrid1Column40.Index])='<27><><EFBFBD>ĵ<EFBFBD>' then
|
|
|
AColor:=clred;
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.dxDBGrid1Column41CustomDraw(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[dxDBGrid1Column41.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.dxDBGrid1Column42CustomDraw(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[dxDBGrid1Column42.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.Label17Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_crm_query:=Tfrm_crm_query.Create(application);
|
|
|
frm_crm_query.DataSource1:=t_op_seae1;
|
|
|
frm_crm_query.Top:= Screen.height-750;
|
|
|
|
|
|
frm_crm_query.ShowModal;
|
|
|
finally
|
|
|
frm_crm_query.Free;
|
|
|
frm_crm_query:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh2CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh2.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh2DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
|
|
|
|
|
|
DBComboBoxEh2.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20>ͻ<EFBFBD><CDBB><EFBFBD>λ from t_op_sealocal');
|
|
|
SQL.Add('where <20>ͻ<EFBFBD><CDBB><EFBFBD>λ<>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh2.Items.Add(fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD>λ').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh3CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh3.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh3DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh3.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20>ջ<EFBFBD><D5BB><EFBFBD>ַһ from t_op_sealocal');
|
|
|
SQL.Add('where <20>ջ<EFBFBD><D5BB><EFBFBD>λ=:<3A>ջ<EFBFBD><D5BB><EFBFBD>λ and <20>ջ<EFBFBD><D5BB><EFBFBD>ַһ<>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>ջ<EFBFBD><D5BB><EFBFBD>λ').Value:=DBComboBoxEh4.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh3.Items.Add(fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>ַһ').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh4CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh4.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh4DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh4.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20>ջ<EFBFBD><D5BB><EFBFBD>λ from t_op_sealocal');
|
|
|
SQL.Add('where <20>ջ<EFBFBD><D5BB><EFBFBD>λ<>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh4.Items.Add(fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>λ').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh5CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh5.items.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh5DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh4.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20><><EFBFBD><EFBFBD> from t_op_sealocal');
|
|
|
SQL.Add('where <20><><EFBFBD><EFBFBD><>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh5.Items.Add(fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh4Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if (t_op_seae.state=dsinsert) or (t_op_seae.state=dsedit) then
|
|
|
begin
|
|
|
DBComboBoxEh3.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20>ջ<EFBFBD><D5BB><EFBFBD>ַһ from t_op_sealocal');
|
|
|
SQL.Add('where <20>ջ<EFBFBD><D5BB><EFBFBD>λ=:<3A>ջ<EFBFBD><D5BB><EFBFBD>λ and <20>ջ<EFBFBD><D5BB><EFBFBD>ַһ<>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>ջ<EFBFBD><D5BB><EFBFBD>λ').Value:=DBComboBoxEh4.Text;
|
|
|
Open;First;
|
|
|
if recordCount=1 then
|
|
|
begin
|
|
|
DBComboBoxEh3.text:=fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>ַһ').asstring;
|
|
|
end
|
|
|
else
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh3.Items.Add(fieldbyname('<27>ջ<EFBFBD><D5BB><EFBFBD>ַһ').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh6CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh6.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh6DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh6.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20>걨Ʒ<EAB1A8><C6B7> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7><>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh6.Items.Add(fieldbyname('<27>걨Ʒ<EAB1A8><C6B7>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh7CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh7.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh7DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh7.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct Σ<>걨<EFBFBD><EAB1A8>˾ from t_op_sealocal');
|
|
|
SQL.Add('where Σ<>걨<EFBFBD><EAB1A8>˾<>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh7.Items.Add(fieldbyname('Σ<>걨<EFBFBD><EAB1A8>˾').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh8CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh8.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh8DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh8.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20><><EFBFBD><EFBFBD><E2B3B5> from t_op_sealocal');
|
|
|
SQL.Add('where <20><><EFBFBD><EFBFBD><E2B3B5><>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh8.Items.Add(fieldbyname('<27><><EFBFBD><EFBFBD><E2B3B5>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh9CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh9.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh9DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh9.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20><><EFBFBD>չ<EFBFBD>˾ from t_op_sealocal');
|
|
|
SQL.Add('where <20><><EFBFBD>չ<EFBFBD>˾<>''''');
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh9.Items.Add(fieldbyname('<27><><EFBFBD>չ<EFBFBD>˾').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh10CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh10.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh10DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh10.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct UNNO from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and UNNO<>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh10.Items.Add(fieldbyname('UNNO').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh11CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
DBComboBoxEh11.items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh11DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
DBComboBoxEh11.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct CLASS<53><53> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and CLASS<53><53><>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
DBComboBoxEh11.Items.Add(fieldbyname('CLASS<53><53>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh12CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh12DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct CLASS<53><53> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and CLASS<53><53><>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Add(fieldbyname('CLASS<53><53>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh13CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).items.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh13DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct Σ<><CEA3>Ʒ<EFBFBD>ȼ<EFBFBD> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and Σ<><CEA3>Ʒ<EFBFBD>ȼ<EFBFBD><>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Add(fieldbyname('Σ<><CEA3>Ʒ<EFBFBD>ȼ<EFBFBD>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh14CloseUp(Sender: TObject;
|
|
|
Accept: Boolean);
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).items.Clear;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh14DropDown(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct <20><><EFBFBD><EFBFBD> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and <20><><EFBFBD><EFBFBD><>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
TDBComboBoxEh(Sender).Items.Add(fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.DBComboBoxEh6Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if (t_op_seae.state=dsinsert) or (t_op_seae.state=dsedit) then
|
|
|
begin
|
|
|
DBComboBoxEh3.Items.Clear;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
with aQuery do
|
|
|
try
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select distinct UNNO,CLASS<53><53>,CLASS<53><53>,Σ<><CEA3>Ʒ<EFBFBD>ȼ<EFBFBD>,<2C><><EFBFBD><EFBFBD> from t_op_sealocal');
|
|
|
SQL.Add('where <20>걨Ʒ<EAB1A8><C6B7>=:<3A>걨Ʒ<EAB1A8><C6B7> and <20>걨Ʒ<EAB1A8><C6B7><>''''');
|
|
|
aQuery.Parameters.ParamByName('<27>걨Ʒ<EAB1A8><C6B7>').Value:=DBComboBoxEh6.Text;
|
|
|
Open;First;
|
|
|
if recordCount=1 then
|
|
|
begin
|
|
|
DBComboBoxEh10.text:=fieldbyname('UNNO').asstring;
|
|
|
DBComboBoxEh11.text:=fieldbyname('CLASS<53><53>').asstring;
|
|
|
DBComboBoxEh12.text:=fieldbyname('CLASS<53><53>').asstring;
|
|
|
DBComboBoxEh13.text:=fieldbyname('Σ<><CEA3>Ʒ<EFBFBD>ȼ<EFBFBD>').asstring;
|
|
|
DBComboBoxEh14.text:=fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
end;
|
|
|
finally
|
|
|
Close;
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_sealocal.bsSkinPageControl1Change(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
|
|
|
begin
|
|
|
if not assigned(frm_op_seae_state) then
|
|
|
begin
|
|
|
frm_op_seae_state:=tfrm_op_seae_state.Create (self);
|
|
|
frm_op_seae_state.fra_op_state1.t_op_state.DataSource:=t_op_seae1;
|
|
|
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(bsSkinTabSheet3,nil,alClient);
|
|
|
frm_op_seae_state.show;
|
|
|
end;
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|