|
|
unit u_ch_fee_Recheck_seai;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ComCtrls, bsSkinTabs, DB, ADODB, dxExEdtr,
|
|
|
dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, u_fee_check,
|
|
|
RxLookup, StdCtrls, Mask, DBCtrls, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
wwdbdatetimepicker, wwdblook, XPMenu, Menus, bsdbctrls, ExtCtrls, Grids,
|
|
|
Wwdbigrd, Wwdbgrid, u_fee_Recheck;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_fee_Recheck_seai = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
t_op_seai1: TDataSource;
|
|
|
t_op_state: TADOQuery;
|
|
|
t_op_state1: TDataSource;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid110: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column44: TdxDBGridColumn;
|
|
|
dxDBGrid1Column45: TdxDBGridColumn;
|
|
|
dxDBGrid1Column46: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column47: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column48: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column49: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridMaskColumn;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label6: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridCheckColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column58: TdxDBGridColumn;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label65: TLabel;
|
|
|
DBEdit4: TDBEdit;
|
|
|
dxDBGrid1Column59: TdxDBGridColumn;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
Label122: TLabel;
|
|
|
DBMemo33: TDBMemo;
|
|
|
Label121: TLabel;
|
|
|
DBMemo34: TDBMemo;
|
|
|
Label123: TLabel;
|
|
|
DBMemo35: TDBMemo;
|
|
|
Label125: TLabel;
|
|
|
Label124: TLabel;
|
|
|
Label11: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
Label9: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
Label31: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
Label32: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label30: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label12: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label126: TLabel;
|
|
|
DBEdit63: TDBEdit;
|
|
|
Label10: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label13: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
Label22: TLabel;
|
|
|
Label73: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label164: TLabel;
|
|
|
Label18: TLabel;
|
|
|
DBEdit83: TDBEdit;
|
|
|
Label14: TLabel;
|
|
|
DBEdit13: TDBEdit;
|
|
|
Label20: TLabel;
|
|
|
DBEdit82: TDBEdit;
|
|
|
Label15: TLabel;
|
|
|
DBEdit81: TDBEdit;
|
|
|
Label16: TLabel;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
DBMemo1: TDBMemo;
|
|
|
Label35: TLabel;
|
|
|
DBMemo3: TDBMemo;
|
|
|
Label36: TLabel;
|
|
|
DBMemo4: TDBMemo;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
XPMenu1: TXPMenu;
|
|
|
t_op_card: TADOQuery;
|
|
|
t_op_card1: TDataSource;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridButtonColumn1: TdxDBGridButtonColumn;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridCheckColumn1: TdxDBGridCheckColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridCheckColumn2: TdxDBGridCheckColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
PopupMenu3: TPopupMenu;
|
|
|
N37: TMenuItem;
|
|
|
N38: TMenuItem;
|
|
|
N17: TMenuItem;
|
|
|
N18: TMenuItem;
|
|
|
N34: TMenuItem;
|
|
|
N35: TMenuItem;
|
|
|
N36: TMenuItem;
|
|
|
t_op_seai: TADOStoredProc;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit23: TDBEdit;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit28: TDBEdit;
|
|
|
DBEdit29: TDBEdit;
|
|
|
DBEdit30: TDBEdit;
|
|
|
DBEdit31: TDBEdit;
|
|
|
DBEdit32: TDBEdit;
|
|
|
DBEdit33: TDBEdit;
|
|
|
DBEdit34: TDBEdit;
|
|
|
DBEdit35: TDBEdit;
|
|
|
DBEdit36: TDBEdit;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
N5: TMenuItem;
|
|
|
N6: TMenuItem;
|
|
|
N7: TMenuItem;
|
|
|
N8: TMenuItem;
|
|
|
t_ch_fee_truck: TADOQuery;
|
|
|
t_ch_fee_truck1: TDataSource;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
N9: TMenuItem;
|
|
|
N19: TMenuItem;
|
|
|
dxDBGrid1Column60: TdxDBGridColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid1Column62: TdxDBGridColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridColumn;
|
|
|
N20: TMenuItem;
|
|
|
N21: TMenuItem;
|
|
|
N22: TMenuItem;
|
|
|
N23: TMenuItem;
|
|
|
fra_fee_Recheck1: Tfra_fee_Recheck;
|
|
|
N24: TMenuItem;
|
|
|
N25: TMenuItem;
|
|
|
N26: TMenuItem;
|
|
|
N27: TMenuItem;
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure N37Click(Sender: TObject);
|
|
|
procedure N17Click(Sender: TObject);
|
|
|
procedure N34Click(Sender: TObject);
|
|
|
procedure N36Click(Sender: TObject);
|
|
|
procedure N2Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N8Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure N19Click(Sender: TObject);
|
|
|
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
|
|
|
Field: TField; State: TGridDrawState);
|
|
|
procedure N20Click(Sender: TObject);
|
|
|
procedure N23Click(Sender: TObject);
|
|
|
procedure N24Click(Sender: TObject);
|
|
|
procedure N25Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_fee_Recheck_seai: Tfrm_ch_fee_Recheck_seai;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function,u_lcxunit;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_op_state.close;
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
// +open_data('0012','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
t_op_state.open;
|
|
|
t_op_card.open;
|
|
|
t_ch_fee_truck.open;
|
|
|
|
|
|
loadreggrid(dxdbgrid1,true,caption);
|
|
|
loadwwgrid(fra_fee_Recheck1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD>ڸ<EFBFBD><DAB8><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
loadwwgrid(fra_fee_Recheck1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD>ڸ<EFBFBD><DAB8><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
bsSkinPageControl1.Align:=alClient;
|
|
|
fra_fee_Recheck1.limited_str.text:='0012';
|
|
|
fra_fee_Recheck1.chk_accept.Text:=get_parameters_value(102,'FALSE') ;
|
|
|
fra_fee_Recheck1.chk_pay.text:=get_parameters_value(106,'FALSE') ;
|
|
|
fra_fee_Recheck1.ywlb.Text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' ;
|
|
|
|
|
|
if if_open('058') then
|
|
|
begin
|
|
|
fra_fee_Recheck1.t_ch_accept.DataSource:=t_op_seai1;
|
|
|
fra_fee_Recheck1.t_ch_accept.open;
|
|
|
fra_fee_Recheck1.a_shen_delete.open;
|
|
|
fra_fee_Recheck1.a_shen_modify_old.open;
|
|
|
fra_fee_Recheck1.a_shen_modify_new.open;
|
|
|
fra_fee_Recheck1.bsSkinPanel3.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee_Recheck1.bsSkinPanel3.visible:=false;
|
|
|
end;
|
|
|
|
|
|
if if_open('059') then
|
|
|
begin
|
|
|
fra_fee_Recheck1.t_ch_pay.DataSource:=t_op_seai1;
|
|
|
fra_fee_Recheck1.t_ch_pay.open;
|
|
|
fra_fee_Recheck1.p_shen_delete.open;
|
|
|
fra_fee_Recheck1.p_shen_modify_old.open;
|
|
|
fra_fee_Recheck1.p_shen_modify_new.open;
|
|
|
fra_fee_Recheck1.bsSkinPanel5.visible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee_Recheck1.bsSkinPanel5.visible:=false;
|
|
|
end;
|
|
|
|
|
|
if fra_fee_Recheck1.bsSkinPanel3.visible and
|
|
|
fra_fee_Recheck1.bsSkinPanel5.visible then
|
|
|
begin
|
|
|
fra_fee_Recheck1.Panel3.Visible:=true;
|
|
|
fra_fee_Recheck1.t_op_gain.DataSource:=t_op_seai1;
|
|
|
fra_fee_Recheck1.t_op_gain.open;
|
|
|
fra_fee_Recheck1.bsSkinPanel9.Visible:=false;
|
|
|
fra_fee_Recheck1.Panel3.Height:=20;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_fee_Recheck1.Panel3.Visible:=false;
|
|
|
end;
|
|
|
if strtobool(get_parameters_value(30,'false')) then
|
|
|
begin
|
|
|
bsSkinTabSheet5.TabVisible:=true;
|
|
|
N9.Visible:=true;
|
|
|
N19.Visible:=true;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinTabSheet5.TabVisible:=false;
|
|
|
N9.Visible:=false;
|
|
|
N19.Visible:=false;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
savewwgrid(fra_fee_Recheck1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD>ڸ<EFBFBD><DAB8><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
savewwgrid(fra_fee_Recheck1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD>ڸ<EFBFBD><DAB8><EFBFBD>Ӧ<EFBFBD><D3A6>');
|
|
|
frm_ch_fee_Recheck_seai.Hide;
|
|
|
frm_ch_fee_Recheck_seai.ManualFloat(frm_ch_fee_Recheck_seai.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_fee_Recheck_seai');
|
|
|
action:=cafree;
|
|
|
frm_ch_fee_Recheck_seai:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
query_seai(13,'no');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.dxDBGrid1Column3CustomDraw(
|
|
|
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.dxDBGrid1Column2CustomDraw(
|
|
|
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
t_op_seai.Refresh;
|
|
|
except
|
|
|
;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,37);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,t_op_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
Pnt:Tpoint;
|
|
|
begin
|
|
|
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
|
|
|
PopupMenu3.Popup(Pnt.x,Pnt.y);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N37Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
// +open_data('0012','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N17Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'¼<><C2BC>״̬'+''''+') '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N34Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD><EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N36Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N2Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N8Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton2Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_ch_fee_truck.isempty then
|
|
|
exit;
|
|
|
if (t_ch_fee_truck.State=dsinsert)
|
|
|
or (t_ch_fee_truck.State=dsedit) then
|
|
|
begin
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
try
|
|
|
frm_main.db.BeginTrans;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
frm_main.db.CommitTrans;
|
|
|
except
|
|
|
frm_main.db.RollbackTrans;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>ʧ<EFBFBD><CAA7>!');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton9Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_ch_fee_truck.isempty then
|
|
|
exit;
|
|
|
if (t_ch_fee_truck.State=dsinsert)
|
|
|
or (t_ch_fee_truck.State=dsedit) then
|
|
|
begin
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
try
|
|
|
frm_main.db.BeginTrans;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
frm_main.db.CommitTrans;
|
|
|
except
|
|
|
frm_main.db.RollbackTrans;
|
|
|
showmessage('<27><><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD>ύʧ<E1BDBB><CAA7>!');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton12Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_ch_fee_truck.isempty then
|
|
|
exit;
|
|
|
if (t_ch_fee_truck.State=dsinsert)
|
|
|
or (t_ch_fee_truck.State=dsedit) then
|
|
|
begin
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
try
|
|
|
frm_main.db.BeginTrans;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
frm_main.db.CommitTrans;
|
|
|
except
|
|
|
frm_main.db.RollbackTrans;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
|
|
|
exit;
|
|
|
end;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ijɹ<C4B3>!');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.bsSkinButton13Click(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
if t_ch_fee_truck.isempty then
|
|
|
exit;
|
|
|
if (t_ch_fee_truck.State=dsinsert)
|
|
|
or (t_ch_fee_truck.State=dsedit) then
|
|
|
begin
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
|
|
|
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>ģ<DEB8><C4A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
try
|
|
|
frm_main.db.BeginTrans;
|
|
|
if wwDBGrid1.SelectedList.Count>=1 then
|
|
|
begin
|
|
|
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
|
|
|
begin
|
|
|
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD><EFBFBD>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_ch_fee_truck.edit;
|
|
|
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD><EFBFBD>';
|
|
|
t_ch_fee_truck.post;
|
|
|
end;
|
|
|
frm_main.db.CommitTrans;
|
|
|
except
|
|
|
frm_main.db.RollbackTrans;
|
|
|
showmessage('<27><><EFBFBD>ý<EFBFBD>ֹ<EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!');
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N19Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+open_data('0012','<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_truck where <20><><EFBFBD><EFBFBD>״̬<>'
|
|
|
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+') '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.wwDBGrid1DrawDataCell(Sender: TObject;
|
|
|
const Rect: TRect; Field: TField; State: TGridDrawState);
|
|
|
begin
|
|
|
fee_color(t_ch_fee_truck,wwDBGrid1,Rect,Field);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N20Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N23Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
|
|
|
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N24Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_fee_Recheck_seai.N25Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_seai.Close;
|
|
|
t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where '
|
|
|
+' <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
|
|
|
+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+')) '
|
|
|
+default_sort(54,'t_op_seai','','desc');
|
|
|
t_op_seai.open;
|
|
|
end;
|
|
|
|
|
|
end.
|