|
|
unit u_op_railway_apply;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,
|
|
|
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
|
|
|
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,inifiles;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_railway_apply = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
t_op_railway: TADOQuery;
|
|
|
t_op_railway1: TDataSource;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label65: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label19: TLabel;
|
|
|
RxDBLookupCombo12: TRxDBLookupCombo;
|
|
|
Label20: TLabel;
|
|
|
RxDBLookupCombo29: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo30: TRxDBLookupCombo;
|
|
|
Label42: TLabel;
|
|
|
RxDBLookupCombo14: TRxDBLookupCombo;
|
|
|
Label16: TLabel;
|
|
|
Label8: TLabel;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Label10: TLabel;
|
|
|
DBEdit6: TDBEdit;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label13: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
Label14: TLabel;
|
|
|
DBEdit13: TDBEdit;
|
|
|
Label18: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
Label21: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
Label22: TLabel;
|
|
|
DBEdit16: TDBEdit;
|
|
|
Label23: TLabel;
|
|
|
DBEdit17: TDBEdit;
|
|
|
Label24: TLabel;
|
|
|
DBEdit19: TDBEdit;
|
|
|
Label25: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label26: TLabel;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
Label164: TLabel;
|
|
|
DBMemo39: TDBMemo;
|
|
|
Label27: TLabel;
|
|
|
DBMemo2: TDBMemo;
|
|
|
Label165: TLabel;
|
|
|
DBMemo40: TDBMemo;
|
|
|
Label166: TLabel;
|
|
|
DBMemo41: TDBMemo;
|
|
|
Label167: TLabel;
|
|
|
DBMemo42: TDBMemo;
|
|
|
Label28: TLabel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
DBEdit81: TDBEdit;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
Label29: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
DBEdit20: TDBEdit;
|
|
|
Label32: TLabel;
|
|
|
DBEdit21: TDBEdit;
|
|
|
Label33: TLabel;
|
|
|
DBEdit22: TDBEdit;
|
|
|
Label35: TLabel;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker7: TwwDBDateTimePicker;
|
|
|
Label40: TLabel;
|
|
|
Label41: TLabel;
|
|
|
wwDBDateTimePicker8: TwwDBDateTimePicker;
|
|
|
Label44: TLabel;
|
|
|
DBMemo3: TDBMemo;
|
|
|
fra_op_state1: Tfra_op_state;
|
|
|
fra_fee1: Tfra_fee;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
fra_op_card1: Tfra_op_card;
|
|
|
t_ch_fee: TADOQuery;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N37: TMenuItem;
|
|
|
N38: TMenuItem;
|
|
|
N62: TMenuItem;
|
|
|
N25: TMenuItem;
|
|
|
N64: TMenuItem;
|
|
|
N63: TMenuItem;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column44: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column45: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column46: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column49: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridMaskColumn;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
|
|
|
Label55: TLabel;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
Label46: TLabel;
|
|
|
RxDBLookupCombo7: TRxDBLookupCombo;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column47: TdxDBGridColumn;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label45: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
Edit1: TEdit;
|
|
|
Edit2: TEdit;
|
|
|
Edit3: TEdit;
|
|
|
Edit4: TEdit;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
Label53: TLabel;
|
|
|
Label54: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
Label56: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Edit5: TEdit;
|
|
|
Edit6: TEdit;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
dxDBGrid1Column58: TdxDBGridColumn;
|
|
|
dxDBGrid1Column59: TdxDBGridColumn;
|
|
|
dxDBGrid1Column60: TdxDBGridColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid1Column62: TdxDBGridColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridColumn;
|
|
|
t_op_railway_danwei: TADOQuery;
|
|
|
t_op_seae_danwei1: TDataSource;
|
|
|
Label60: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
N1: TMenuItem;
|
|
|
Label17: TLabel;
|
|
|
RxDBLookupCombo13: TRxDBLookupCombo;
|
|
|
Label9: TLabel;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
Label61: TLabel;
|
|
|
RxDBLookupCombo31: TRxDBLookupCombo;
|
|
|
DBEdit41: TDBEdit;
|
|
|
Label133: TLabel;
|
|
|
bsSkinSpeedButton1: TbsSkinSpeedButton;
|
|
|
dxDBGrid1Column64: TdxDBGridColumn;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
Label6: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
Label15: TLabel;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
Label34: TLabel;
|
|
|
DBEdit23: TDBEdit;
|
|
|
Label36: TLabel;
|
|
|
Label39: TLabel;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
Label43: TLabel;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
Label59: TLabel;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
Label85: TLabel;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
Label62: TLabel;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
Label7: TLabel;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
Label63: TLabel;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
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 bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure t_op_railwayBeforeCancel(DataSet: TDataSet);
|
|
|
procedure t_op_railwayBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_railwayBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_railwayBeforePost(DataSet: TDataSet);
|
|
|
procedure t_op_railwayPostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure N37Click(Sender: TObject);
|
|
|
procedure N62Click(Sender: TObject);
|
|
|
procedure N64Click(Sender: TObject);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(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 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 DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo3KeyPress(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 RxDBLookupCombo4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit63KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit81KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo61KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit24KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
procedure RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
procedure RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
procedure N1Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo31KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
procedure DBEdit6Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
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 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 Notebook1PageChanged(Sender: TObject);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
procedure setconcolor;
|
|
|
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_railway_apply: Tfrm_op_railway_apply;
|
|
|
frm_op_railway_apply_create:boolean;
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_sys_progress,
|
|
|
u_op_railway_apply_add, u_op_add_code, u_op_date_change;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
savewwgrid(fra_fee1.wwDBGrid1,'<27>̼<EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
savewwgrid(fra_fee1.wwDBGrid2,'<27>̼<EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
|
|
|
frm_op_railway_apply.Hide;
|
|
|
frm_op_railway_apply.ManualFloat(frm_op_railway_apply.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_railway_apply');
|
|
|
frm_op_railway_apply_create:=false;
|
|
|
action:=cafree;
|
|
|
frm_op_railway_apply:=nil;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/12);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton14.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_op_railway);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_op_railway);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_railway);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڱ<EFBFBD><DAB1>ر<EFBFBD><D8B1><EFBFBD>',2,t_op_railway1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_railway.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_railway.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_fee.close;
|
|
|
t_ch_fee.Parameters[0].value:=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_ch_fee.open;
|
|
|
if not t_ch_fee.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
table_delete(t_op_railway);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_railway);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_op_railway.GetBookmark;
|
|
|
t_op_railway.Refresh;
|
|
|
t_op_railway.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton13Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
frm_op_railway_apply_create:=false;
|
|
|
|
|
|
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
|
|
|
DBEdit8.Width:=110;
|
|
|
bsSkinSpeedButton1.Visible:=false;
|
|
|
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
|
|
|
DBEdit8.ReadOnly:=false;
|
|
|
end else begin
|
|
|
DBEdit8.ReadOnly:=true;
|
|
|
end;
|
|
|
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD>ȡ<EFBFBD><C8A1>' then begin
|
|
|
DBEdit8.Width:=90;
|
|
|
bsSkinSpeedButton1.Visible:=true;
|
|
|
if frm_data_share.t_sys_noset.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6>༭').AsBoolean then begin
|
|
|
DBEdit8.ReadOnly:=false;
|
|
|
end else begin
|
|
|
DBEdit8.ReadOnly:=true;
|
|
|
end;
|
|
|
end else if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭' then begin
|
|
|
DBEdit8.ReadOnly:=false;
|
|
|
DBEdit8.Width:=110;
|
|
|
bsSkinSpeedButton1.Visible:=false;
|
|
|
end;
|
|
|
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.SQL.clear;
|
|
|
t_op_railway.SQL.Add('select top 100 * from t_op_railway where '
|
|
|
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+' or <20><><EFBFBD><EFBFBD>Ա='+''''+employee+''''
|
|
|
+' or <20>ͷ<EFBFBD>Ա='+''''+employee+''''+' or <20><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>='+''''+employee+''''
|
|
|
+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''+')'
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC');
|
|
|
t_op_railway.open;
|
|
|
t_op_railway_danwei.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
fra_op_card1.t_op_card.DataSource:=t_op_railway1;
|
|
|
fra_op_card1.t_op_card.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
if if_open('297') or if_open('298') then
|
|
|
begin
|
|
|
fra_fee1.edit_type.text:='6';
|
|
|
fra_fee1.baoguan.text:='1';
|
|
|
fra_fee1.edit_data.text:='0006';
|
|
|
fra_fee1.edit_report.text:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>';
|
|
|
fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
|
|
|
if strtobool(get_parameters_value(150,'false')) then
|
|
|
fra_fee1.bsSkinPanel3.Visible:=true;
|
|
|
fra_fee1.DBEdit48.DataSource:=t_op_railway1;
|
|
|
|
|
|
if if_open('297') then
|
|
|
begin
|
|
|
fra_fee1.t_ch_accept.DataSource:=t_op_railway1;
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_accept.close;
|
|
|
fra_fee1.t_ch_accept.SQL.Clear;
|
|
|
fra_fee1.t_ch_accept.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_accept.open;
|
|
|
fra_fee1.a_shen_delete.open;
|
|
|
fra_fee1.a_shen_modify_old.open;
|
|
|
fra_fee1.a_shen_modify_new.open;
|
|
|
fra_fee1.Panel3.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee1.Panel3.visible:=false;
|
|
|
if if_open('298') then
|
|
|
begin
|
|
|
fra_fee1.t_ch_pay.DataSource:=t_op_railway1;
|
|
|
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('209')=false) then
|
|
|
begin
|
|
|
fra_fee1.t_ch_pay.close;
|
|
|
fra_fee1.t_ch_pay.SQL.Clear;
|
|
|
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
|
|
|
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
|
|
|
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
|
|
|
end;
|
|
|
fra_fee1.t_ch_pay.open;
|
|
|
fra_fee1.p_shen_delete.open;
|
|
|
fra_fee1.p_shen_modify_old.open;
|
|
|
fra_fee1.p_shen_modify_new.open;
|
|
|
fra_fee1.Panel1.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
fra_fee1.Panel1.visible:=false;
|
|
|
|
|
|
if fra_fee1.Panel1.visible and
|
|
|
fra_fee1.Panel3.visible then
|
|
|
begin
|
|
|
if if_open('253') 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_railway1;
|
|
|
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;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
fra_op_state1.edit_state.Text:='6';
|
|
|
fra_op_state1.t_op_state.DataSource:=t_op_railway1;
|
|
|
fra_op_state1.t_op_state.open;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
loadwwgrid(fra_fee1.wwDBGrid1,'<27>̼<EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
loadwwgrid(fra_fee1.wwDBGrid2,'<27>̼<EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
|
|
|
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
frm_op_railway_apply_create:=true;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.t_op_railwayBeforeCancel(DataSet: TDataSet);
|
|
|
begin
|
|
|
delete_no(t_op_railway);
|
|
|
if t_op_railway.State=dsinsert then
|
|
|
if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
|
|
|
delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.t_op_railwayBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_railway,'0006');
|
|
|
if not t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull then
|
|
|
delwtno(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.t_op_railwayBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
op_befor_post(t_op_railway,'0006');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.t_op_railwayBeforePost(DataSet: TDataSet);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
str:string;
|
|
|
begin
|
|
|
table_before_post(t_op_railway,'ί<>е<EFBFBD>λ');
|
|
|
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD>Ա');
|
|
|
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_railway,'<27>ͷ<EFBFBD>Ա');
|
|
|
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
// table_before_post(t_op_airtruck,'<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
// table_before_post(t_op_railway,'<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
// table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_op_railway,'ҵ<><D2B5><EFBFBD><EFBFBD>Դ');
|
|
|
table_before_post(t_op_railway,'<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
table_before_post(t_op_railway,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
if op_empty('t_op_railway',t_op_railway) then
|
|
|
Abort;
|
|
|
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
|
|
|
if t_op_railway.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'])='') then
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
|
|
|
t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
|
|
|
else
|
|
|
t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(5,subComp,department,employee,t_op_railway['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
|
|
|
|
|
|
if (not t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').isnull) and (t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').oldvalue<>t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value) then
|
|
|
if (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>ĵ<EFBFBD>') and (Logininfo.endday>=t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime) then begin
|
|
|
showmessage('<27>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD>ĩ<EFBFBD><C4A9><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if t_op_railway.FieldByName('ί<>е<EFBFBD>λ').OldValue<>t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',t_op_railway.FieldByName('ί<>е<EFBFBD>λ').asstring,[])then
|
|
|
begin
|
|
|
if frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD>'then
|
|
|
begin
|
|
|
showmessage('<27><>ǰҵ<C7B0><D2B5>ί<EFBFBD>е<EFBFBD>λ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>ٽ<EFBFBD><D9BD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>лָ<D0BB><D6B8>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if t_op_railway.State=dsinsert then
|
|
|
begin
|
|
|
if t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
|
|
|
begin
|
|
|
t_op_railway['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_railway.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.RailWayBsNo,'RW'));
|
|
|
t_op_railway['<27><><EFBFBD><EFBFBD>']:=get_id;
|
|
|
end;
|
|
|
t_op_railway['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_railway['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
t_op_railway['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
end;
|
|
|
|
|
|
if strtobool(get_parameters_value(45,'false')) then
|
|
|
begin
|
|
|
if (trim(t_op_railway.fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').asstring)='') or (t_op_railway.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ĵ<EFBFBD>') then
|
|
|
begin
|
|
|
t_op_railway['ί<>б<EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_railway['ί<>б<EFBFBD>']:=t_op_railway['ί<>б<EFBFBD><D0B1><EFBFBD>'];
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_railway['ί<>б<EFBFBD>']:=t_op_railway['<27><><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.t_op_railwayPostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N37Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N62Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N64Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'¼<><C2BC>״̬'+''''+') '
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Desc';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_railway.Close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.text:='select * from t_op_railway where '
|
|
|
+open_data('0006','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
|
|
|
+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DESC';
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_railway=nil then
|
|
|
exit;
|
|
|
if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then
|
|
|
t_op_railway.post;
|
|
|
try
|
|
|
frm_op_railway_apply_add:=tfrm_op_railway_apply_add.Create (self);
|
|
|
frm_op_railway_apply_add.data1.Enabled:=false;
|
|
|
frm_op_railway_apply_add.data1.DataSet:=t_op_railway;
|
|
|
frm_op_railway_apply_add.data1.Enabled:=true;
|
|
|
frm_op_railway_apply_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_railway_apply_add.Free;
|
|
|
if not frm_op_railway_apply.bsSkinTabSheet1.Showing then
|
|
|
frm_op_railway_apply.bsSkinTabSheet1.Show;
|
|
|
frm_op_railway_apply_add:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
query_railway(11,'0006');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
// update_grid(dxdbgrid1,101);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton8Click(Sender: TObject);
|
|
|
VAR
|
|
|
str:widestring;
|
|
|
begin
|
|
|
str:='where '+open_data('0006','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
if Edit1.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
|
|
|
if Edit2.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>쵥<EFBFBD><ECB5A5> like '+''''+'%'+Edit2.text+'%'+'''';
|
|
|
if Edit3.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
if Edit5.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit5.text+'%'+'''';
|
|
|
if Edit4.text<>''then
|
|
|
str:=str+' and <20><>Ӫ<EFBFBD><D3AA>λ like '+''''+'%'+Edit4.text+'%'+'''';
|
|
|
if Edit6.text<>''then
|
|
|
str:=str+' and <20>ֲ<EFBFBD><D6B2><EFBFBD> like '+''''+'%'+Edit6.text+'%'+'''';
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
|
|
|
if wwDBDateTimePicker9.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
if wwDBDateTimePicker12.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
|
|
|
if wwDBDateTimePicker11.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
|
|
|
if wwDBDateTimePicker13.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker13.text+'''';
|
|
|
|
|
|
t_op_railway.close;
|
|
|
t_op_railway.sql.clear;
|
|
|
t_op_railway.sql.add('select * from t_op_railway '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Desc');
|
|
|
t_op_railway.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit1.text:='';
|
|
|
Edit2.text:='';
|
|
|
Edit3.text:='';
|
|
|
Edit4.text:='';
|
|
|
Edit5.text:='';
|
|
|
Edit6.text:='';
|
|
|
RxDBLookupCombo2.ClearValue;
|
|
|
RxDBLookupCombo5.ClearValue;
|
|
|
wwDBDateTimePicker9.text:='';
|
|
|
wwDBDateTimePicker12.text:='';
|
|
|
wwDBDateTimePicker11.text:='';
|
|
|
wwDBDateTimePicker13.text:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit18KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo31);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit10);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit63KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBLookupCombo52KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
// key_RxDBLookupCombo(Key,RxDBLookupCombo6);
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if (key=#13) and (t_op_railway.State in [dsedit,dsinsert]) and (t_op_railway.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString='') then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>,<2C>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client where <20><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>='''+DBEdit6.Text+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
if fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString<>'' then
|
|
|
t_op_railway.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString:=fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString
|
|
|
else
|
|
|
t_op_railway.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString:=fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
key_dbedit(Key,DBEdit11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit16KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit17KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit19KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit81);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit81KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo61);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBLookupCombo61KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit22);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit22KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBDateTimePicker7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit24KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo39);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo1Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo1Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo4Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo4Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo7Enter(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboEnter(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo7Exit(Sender: TObject);
|
|
|
begin
|
|
|
RxLookupComboExit(RxDBLookupCombo7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.N1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_railway1.DataSet.IsEmpty then
|
|
|
exit;
|
|
|
if not do_data('0006',t_op_railway1.DataSet.FieldByName('¼<><C2BC><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>Ա').asstring
|
|
|
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
,t_op_railway1.DataSet.FieldByName('<27>ͷ<EFBFBD>Ա').asstring
|
|
|
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>').asstring
|
|
|
,t_op_railway1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_railway1.DataSet.FieldByName('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊҵ<C6B1><D2B5>״̬<D7B4>Ѿ<EFBFBD>Ϊҵ<CEAA><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
|
|
|
if t_op_railway1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_railway1.DataSet.State=dsinsert)or(t_op_railway1.DataSet.State=dsedit) then
|
|
|
t_op_railway1.DataSet.post;
|
|
|
try
|
|
|
frm_op_date_change:=tfrm_op_date_change.Create (self);
|
|
|
frm_op_date_change.DataSource1.Enabled:=false;
|
|
|
frm_op_date_change.DataSource1.DataSet:=t_op_railway1.DataSet;
|
|
|
frm_op_date_change.DataSource1.Enabled:=true;
|
|
|
frm_op_date_change.ShowModal;
|
|
|
finally
|
|
|
frm_op_date_change.Free;
|
|
|
frm_op_date_change:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinButton14Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton14.ClientToScreen(Point(0,bsSkinButton14.Height));
|
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.RxDBLookupCombo31KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit41);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit41KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit8);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_railway1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']='') then begin
|
|
|
t_op_railway1.DataSet.Edit;
|
|
|
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
|
|
|
t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
|
|
|
else
|
|
|
t_op_railway1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_railway1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.DBEdit6Change(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
if (t_op_railway.State in [dsedit,dsinsert]) then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select <20>ͻ<EFBFBD>ȫ<EFBFBD><C8AB> from t_crm_client where <20><><EFBFBD>ر<EFBFBD><D8B1><EFBFBD>='''+DBEdit6.text+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then begin
|
|
|
if t_op_railway.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString='' then
|
|
|
t_op_railway.FieldByName('<27><>Ӫ<EFBFBD><D3AA>λ').AsString:=fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').AsString
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.wwDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_dbedit(Key,DBEdit6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.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><C2B7><EFBFBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.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_railway_apply.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;
|
|
|
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_railway''';
|
|
|
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
|
|
|
if (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') or (frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>') then begin
|
|
|
if t_op_railway1.DataSet.FindField('װ<>˷<EFBFBD>ʽ')<>nil then begin
|
|
|
if pos('<27><>Ʊ',t_op_railway1.DataSet.FieldByName('װ<>˷<EFBFBD>ʽ').asstring)>0 then begin
|
|
|
end else begin
|
|
|
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
end else begin
|
|
|
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
end else begin
|
|
|
consetcolor(frm_data_share.t_code_empty.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
end;
|
|
|
frm_data_share.t_code_empty.next;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.Notebook1PageChanged(Sender: TObject);
|
|
|
begin
|
|
|
if Notebook1.PageIndex<>0 then
|
|
|
begin
|
|
|
setconcolor;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_railway_apply.bsSkinPageControl1Change(Sender: TObject);
|
|
|
var
|
|
|
inifile1:Tinifile;
|
|
|
begin
|
|
|
if frm_op_railway_apply_create=false then
|
|
|
exit;
|
|
|
|
|
|
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
|
|
|
begin
|
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
|
if strtoint(get_parameters_value(197,'0'))<>0 then
|
|
|
fra_fee1.bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
|
|
|
else fra_fee1.bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
|
|
|
inifile1.Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|