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,'商检应收'); savewwgrid(fra_fee1.wwDBGrid2,'商检应付'); 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('海运出口报关报检',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='编辑修改' then begin Notebook1.PageIndex:=1; bsSkinButton11.Caption:='返回列表'; end else begin if (t_op_railway.State=dsinsert)or(t_op_railway.State=dsedit) then BEGIN answer:=messagedlg( '数据已经修改，是否保存？',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:='编辑修改'; 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('编号').asstring; t_ch_fee.open; if not t_ch_fee.IsEmpty then begin showmessage('对不起业务存在费用信息，不能删除！！'); 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:='加载数据请等候。。。'; 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('出号规则').Asstring)='自动取号' then begin DBEdit8.Width:=110; bsSkinSpeedButton1.Visible:=false; if frm_data_share.t_sys_noset.fieldbyname('是否允许手动编辑').AsBoolean then begin DBEdit8.ReadOnly:=false; end else begin DBEdit8.ReadOnly:=true; end; end else if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动取号' then begin DBEdit8.Width:=90; bsSkinSpeedButton1.Visible:=true; if frm_data_share.t_sys_noset.fieldbyname('是否允许手动编辑').AsBoolean then begin DBEdit8.ReadOnly:=false; end else begin DBEdit8.ReadOnly:=true; end; end else if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='手动编辑' 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 ' +'(录入人='+''''+employee+''''+' or 操作员='+''''+employee+'''' +' or 客服员='+''''+employee+''''+' or 报关操作='+''''+employee+'''' +' or 报检操作='+''''+employee+''''+')' +' order by 业务编号 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:='铁路运输'; 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 类型=' +''''+'收'+''''+' and 编号=:编号 and (录入人=' +''''+employee+''''+' or (录入人<>'+''''+employee+'''' +' and 机密<>1) ) order by 顺序,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 类型=' +''''+'付'+''''+' and 编号=:编号 and (录入人=' +''''+employee+''''+' or (录入人<>'+''''+employee+'''' +' and 机密<>1) ) order by 顺序,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,'商检应收'); loadwwgrid(fra_fee1.wwDBGrid2,'商检应付'); 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('委托编号').IsNull then delwtno(t_op_railway['委托编号']); 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('委托编号').IsNull then delwtno(t_op_railway['委托编号']); 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,'委托单位'); table_before_post(t_op_railway,'操作员'); table_before_post(t_op_railway,'揽货人'); table_before_post(t_op_railway,'客服员'); // table_before_post(t_op_airtruck,'主提单号'); // table_before_post(t_op_airtruck,'分提单号'); // table_before_post(t_op_railway,'接单日期'); // table_before_post(t_op_railway,'发车日期'); table_before_post(t_op_railway,'业务来源'); table_before_post(t_op_railway,'销售部门'); table_before_post(t_op_railway,'操作部门'); if op_empty('t_op_railway',t_op_railway) then Abort; if Trim(frm_data_share.t_sys_noset.fieldbyname('出号规则').Asstring)='自动取号' then if t_op_railway.FieldByName('委托编号').IsNull or (trim(t_op_railway['委托编号'])='') then if Trim(frm_data_share.t_sys_noset.fieldbyname('日期规则').Asstring)='会计期间' then t_op_railway['委托编号']:=getwtno(5,subComp,department,employee,t_op_railway['会计期间']) else t_op_railway['委托编号']:=getwtno(5,subComp,department,employee,t_op_railway['接单日期']); if (not t_op_railway.fieldbyname('发车日期').isnull) and (t_op_railway.fieldbyname('发车日期').oldvalue<>t_op_railway.fieldbyname('发车日期').value) then if (t_op_railway.fieldbyname('业务类型').asstring<>'更改单') and (Logininfo.endday>=t_op_railway.fieldbyname('发车日期').asdatetime) then begin showmessage('此发车日期所在期间已月末结账,不能添加修改业务！！'); abort; end; if t_op_railway.FieldByName('委托单位').OldValue<>t_op_railway.FieldByName('委托单位').asstring then begin if frm_data_share.t_crm_client_all.Locate('客户简称',t_op_railway.FieldByName('委托单位').asstring,[])then begin if frm_data_share.t_crm_client_all.fieldbyname('客户状态').asstring='封存客户'then begin showmessage('当前业务委托单位已经封存，不能再进行业务合作，如需合作请进行恢复客户操作！'); abort; end; end; end; if t_op_railway.State=dsinsert then begin if t_op_railway.fieldbyname('业务编号').asstring=''then begin t_op_railway['业务编号']:=get_no(t_op_railway.fieldbyname('会计期间').AsDateTime,getbsno(Logininfo.RailWayBsNo,'RW')); t_op_railway['编号']:=get_id; end; t_op_railway['主编号']:=t_op_railway['编号']; t_op_railway['业务状态']:='接受委托'; t_op_railway['费用状态']:='录入状态'; end; if strtobool(get_parameters_value(45,'false')) then begin if (trim(t_op_railway.fieldbyname('委托编号').asstring)='') or (t_op_railway.fieldbyname('业务类型').asstring='更改单') then begin t_op_railway['委托标准']:=t_op_railway['编号']; end else begin t_op_railway['委托标准']:=t_op_railway['委托编号']; end; end else begin t_op_railway['委托标准']:=t_op_railway['编号']; 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('数据已经被其它用户修改，当前修改不能保存'+#13#10+'请刷新数据后重新录入'); 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_op_state where 是否完成<>1) ' +' order by 业务编号 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'收'+''''+')' +' order by 业务编号 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 费用状态<>'+''''+'费用封帐'+'''' +' and 编号 not in (select distinct 编号 from t_ch_fee where 类型='+''''+'付'+''''+')' +' order by 业务编号 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态=' +''''+'录入状态'+''''+') ' +' order by 业务编号 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'驳回提交'+''''+','+''''+'禁止修改'+''''+','+''''+'禁止删除'+''''+')) ' +' order by 业务编号 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','揽货人','操作员','客服员','报关操作','报检操作') +' and 编号 in (select distinct 编号 from t_ch_fee where 费用状态 in (' +''''+'提交审核'+''''+','+''''+'申请修改'+''''+','+''''+'申请删除'+''''+')) ' +' order by 业务编号 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','录入人','操作员','客服员','报关操作','报检操作'); if Edit1.text<>''then str:=str+' and 报关单号 like '+''''+'%'+Edit1.text+'%'+''''; if Edit2.text<>''then str:=str+' and 报检单号 like '+''''+'%'+Edit2.text+'%'+''''; if Edit3.text<>''then str:=str+' and 主运单号 like '+''''+'%'+Edit3.text+'%'+''''; if Edit5.text<>''then str:=str+' and 箱号 like '+''''+'%'+Edit5.text+'%'+''''; if Edit4.text<>''then str:=str+' and 经营单位 like '+''''+'%'+Edit4.text+'%'+''''; if Edit6.text<>''then str:=str+' and 手册号 like '+''''+'%'+Edit6.text+'%'+''''; if RxDBLookupCombo2.DisplayValue<>''then str:=str+' and 委托单位='+''''+RxDBLookupCombo2.DisplayValues[1]+''''; if wwDBDateTimePicker9.text<>''then str:=str+' and 报关日期>='+''''+wwDBDateTimePicker9.text+''''; if wwDBDateTimePicker12.text<>''then str:=str+' and 报关日期<='+''''+wwDBDateTimePicker12.text+''''; if wwDBDateTimePicker11.text<>''then str:=str+' and 报检日期>='+''''+wwDBDateTimePicker11.text+''''; if wwDBDateTimePicker13.text<>''then str:=str+' and 报检日期<='+''''+wwDBDateTimePicker13.text+''''; t_op_railway.close; t_op_railway.sql.clear; t_op_railway.sql.add('select * from t_op_railway '+str+' order by 业务编号 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('经营单位').AsString='') then begin aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('select 客户全称,客户简称 from t_crm_client where 海关编码='''+DBEdit6.Text+''''); Open; if not IsEmpty then begin if fieldbyname('客户全称').AsString<>'' then t_op_railway.FieldByName('经营单位').AsString:=fieldbyname('客户全称').AsString else t_op_railway.FieldByName('经营单位').AsString:=fieldbyname('客户简称').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('录入人').asstring ,t_op_railway1.DataSet.FieldByName('操作员').asstring ,t_op_railway1.DataSet.FieldByName('揽货人').asstring ,t_op_railway1.DataSet.FieldByName('客服员').asstring ,t_op_railway1.DataSet.FieldByName('报关操作').asstring ,t_op_railway1.DataSet.FieldByName('报检操作').asstring) then begin showmessage('对不起你无权修改此数据！'); abort; end; if t_op_railway1.DataSet.FieldByName('业务状态').asstring='业务封帐' then begin showmessage('此票业务状态已经为业务封帐状态，不能修改！'); 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('委托编号').IsNull or (t_op_railway1.DataSet['委托编号']='') then begin t_op_railway1.DataSet.Edit; if Trim(frm_data_share.t_sys_noset.fieldbyname('日期规则').Asstring)='会计期间' then t_op_railway1.DataSet['委托编号']:=getwtno(1,subComp,department,employee,t_op_railway1.DataSet['会计期间']) else t_op_railway1.DataSet['委托编号']:=getwtno(1,subComp,department,employee,t_op_railway1.DataSet['开船日期']); 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 客户全称 from t_crm_client where 海关编码='''+DBEdit6.text+''''); Open; if not IsEmpty then begin if t_op_railway.FieldByName('经营单位').AsString='' then t_op_railway.FieldByName('经营单位').AsString:=fieldbyname('客户全称').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('铁路运输',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 //必填项目不同颜色显示 frm_data_share.t_code_empty.Filtered:=false; frm_data_share.t_code_empty.Filter:='表=''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('字段名称').asstring='分提单号') or (frm_data_share.t_code_empty.fieldbyname('字段名称').asstring='分提单号') then begin if t_op_railway1.DataSet.FindField('装运方式')<>nil then begin if pos('主票',t_op_railway1.DataSet.FieldByName('装运方式').asstring)>0 then begin end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').asstring); end; end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').asstring); end; end else begin consetcolor(frm_data_share.t_code_empty.fieldbyname('字段名称').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.