hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/费用模块/u_ch_fee_check_seai.~pas

1123 lines
35 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
{$INCLUDE t_main.inc}
unit u_ch_fee_check_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;
type
Tfrm_ch_fee_check_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;
fra_fee_check1: Tfra_fee_check;
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;
DBEdit18: TDBEdit;
Label65: TLabel;
DBEdit4: TDBEdit;
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;
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;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinNotebook1: TbsSkinNotebook;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
DBEdit37: TDBEdit;
bsSkinPanel4: TbsSkinPanel;
bsSkinPanel5: TbsSkinPanel;
bsSkinButton3: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
t_op_seai2: TDataSource;
t_op_seai_fen: TADOQuery;
bsSkinPanel6: TbsSkinPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid1Column59: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column58: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridDateColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column11: TdxDBGridColumn;
dxDBGrid1Column12: TdxDBGridColumn;
dxDBGrid1Column13: TdxDBGridColumn;
dxDBGrid1Column14: TdxDBGridColumn;
dxDBGrid1Column15: TdxDBGridColumn;
dxDBGrid1Column16: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column18: TdxDBGridColumn;
dxDBGrid11: TdxDBGridColumn;
dxDBGrid12: TdxDBGridColumn;
dxDBGrid13: TdxDBGridColumn;
dxDBGrid14: TdxDBGridColumn;
dxDBGrid15: TdxDBGridColumn;
dxDBGrid16: TdxDBGridColumn;
dxDBGrid17: TdxDBGridColumn;
dxDBGrid18: TdxDBGridColumn;
dxDBGrid19: TdxDBGridColumn;
dxDBGrid110: TdxDBGridColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1TEU: TdxDBGridColumn;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid1Column42: TdxDBGridColumn;
dxDBGrid1Column43: TdxDBGridColumn;
dxDBGrid1Column44: TdxDBGridColumn;
dxDBGrid1Column45: TdxDBGridColumn;
dxDBGrid1Column46: TdxDBGridColumn;
dxDBGrid1Column47: TdxDBGridColumn;
dxDBGrid1Column48: TdxDBGridColumn;
dxDBGrid1Column49: TdxDBGridColumn;
dxDBGrid1Column50: TdxDBGridColumn;
dxDBGrid1Column51: TdxDBGridColumn;
dxDBGrid1Column52: TdxDBGridColumn;
dxDBGrid1Column53: TdxDBGridColumn;
dxDBGrid1Column54: TdxDBGridColumn;
dxDBGrid1Column55: TdxDBGridColumn;
dxDBGrid1Column56: TdxDBGridColumn;
dxDBGrid1Column57: TdxDBGridColumn;
dxDBGrid1Column60: TdxDBGridColumn;
dxDBGrid1Column61: TdxDBGridColumn;
dxDBGrid1Column62: TdxDBGridColumn;
dxDBGrid1Column63: TdxDBGridColumn;
bsSkinPanel7: TbsSkinPanel;
dxDBGrid4: TdxDBGrid;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGridColumn16: TdxDBGridColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridColumn23: TdxDBGridColumn;
dxDBGridColumn24: TdxDBGridColumn;
dxDBGridColumn25: TdxDBGridColumn;
dxDBGridColumn26: TdxDBGridColumn;
dxDBGridColumn27: TdxDBGridColumn;
dxDBGridColumn28: TdxDBGridColumn;
dxDBGridColumn29: TdxDBGridColumn;
dxDBGridColumn30: TdxDBGridColumn;
dxDBGridColumn31: TdxDBGridColumn;
dxDBGridColumn32: TdxDBGridColumn;
dxDBGridColumn33: TdxDBGridColumn;
dxDBGridColumn34: TdxDBGridColumn;
dxDBGridColumn35: TdxDBGridColumn;
dxDBGridColumn36: TdxDBGridColumn;
dxDBGridColumn37: TdxDBGridColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGridColumn43: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridColumn46: TdxDBGridColumn;
dxDBGridColumn47: TdxDBGridColumn;
dxDBGridColumn48: TdxDBGridColumn;
dxDBGridColumn49: TdxDBGridColumn;
dxDBGridColumn50: TdxDBGridColumn;
dxDBGridColumn51: TdxDBGridColumn;
dxDBGridColumn52: TdxDBGridColumn;
dxDBGrid1Column64: TdxDBGridColumn;
dxDBGrid1Column65: TdxDBGridColumn;
dxDBGrid4Column54: TdxDBGridColumn;
dxDBGrid4Column55: TdxDBGridColumn;
dxDBGrid4Column56: TdxDBGridColumn;
dxDBGrid4Column57: TdxDBGridColumn;
dxDBGrid1Column66: TdxDBGridColumn;
dxDBGrid1Column67: TdxDBGridColumn;
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);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_fee_check_seai: Tfrm_ch_fee_check_seai;
frm_op_seai_check_create:boolean;
implementation
uses u_main, my_sys_function, {$IFDEF DLFENZHANG}u_op_seae_fenzhang,{$ENDIF} u_ch_fee_zhupiao;
{$R *.dfm}
procedure Tfrm_ch_fee_check_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 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+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><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) '
+default_sort(54,'t_op_seai','','desc');
t_op_seai.open;
t_op_seai_fen.open;
t_op_state.open;
t_op_card.open;
t_ch_fee_truck.open;
loadreggrid(dxdbgrid1,true,caption);
loadwwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
bsSkinPageControl1.Align:=alClient;
fra_fee_check1.limited_str.text:='0012';
fra_fee_check1.chk_accept.Text:=get_parameters_value(102,'FALSE') ;
fra_fee_check1.chk_pay.text:=get_parameters_value(106,'FALSE') ;
fra_fee_check1.ywlb.Text:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' ;
if if_open('058') then
begin
fra_fee_check1.t_ch_accept.DataSource:=t_op_seai2;
fra_fee_check1.t_ch_accept.open;
fra_fee_check1.a_shen_delete.open;
fra_fee_check1.a_shen_modify_old.open;
fra_fee_check1.a_shen_modify_new.open;
fra_fee_check1.bsSkinPanel3.visible:=true;
end
else
begin
fra_fee_check1.bsSkinPanel3.visible:=false;
end;
if if_open('059') then
begin
fra_fee_check1.t_ch_pay.DataSource:=t_op_seai2;
fra_fee_check1.t_ch_pay.open;
fra_fee_check1.p_shen_delete.open;
fra_fee_check1.p_shen_modify_old.open;
fra_fee_check1.p_shen_modify_new.open;
fra_fee_check1.bsSkinPanel5.visible:=true;
end
else
begin
fra_fee_check1.bsSkinPanel5.visible:=false;
end;
if fra_fee_check1.bsSkinPanel3.visible and
fra_fee_check1.bsSkinPanel5.visible then
begin
fra_fee_check1.Panel3.Visible:=true;
fra_fee_check1.t_op_gain.DataSource:=t_op_seai2;
fra_fee_check1.t_op_gain.open;
// fra_fee_check1.bsSkinPanel9.Visible:=false;
// fra_fee_check1.Panel3.Height:=20;
fra_fee_check1.DBEdit43.DataSource:=t_op_seai2;
fra_fee_check1.t_op_gain_main.DataSource:=t_op_seai2;
fra_fee_check1.t_op_gain_main.open;
end
else
begin
fra_fee_check1.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;
if strtobool(get_parameters_value(150,'false')) then
fra_fee_check1.bsSkinPanel10.Visible:=true
else fra_fee_check1.bsSkinPanel10.Visible:=False;
frm_op_seai_check_create:=true;
{$IFDEF DLFENZHANG}
{$ELSE}
bsSkinTabSheet6.TabVisible:=false;
{$ENDIF}
end;
procedure Tfrm_ch_fee_check_seai.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_fee_check_seai.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_op_seai_check_create:=false;
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_fenzhang) then
begin
FreeAndNil(frm_op_seae_fenzhang);
end;
{$ENDIF}
savereggrid(dxdbgrid1,caption);
savewwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˽<EFBFBD><CBBD>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˽<EFBFBD><CBBD>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
frm_ch_fee_check_seai.Hide;
frm_ch_fee_check_seai.ManualFloat(frm_ch_fee_check_seai.BoundsRect );
frm_main.freeTabs('frm_ch_fee_check_seai');
action:=cafree;
frm_ch_fee_check_seai:=nil;
end;
procedure Tfrm_ch_fee_check_seai.bsSkinButton10Click(Sender: TObject);
begin
query_seai(3,'0012');
end;
procedure Tfrm_ch_fee_check_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_check_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_check_seai.bsSkinButton7Click(Sender: TObject);
var
book1:Tbookmark;
begin
try
book1:=t_op_seai.GetBookmark;
t_op_seai.Requery;
t_op_seai.GotoBookmark(book1);
except
;
end;
end;
procedure Tfrm_ch_fee_check_seai.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_ch_fee_check_seai.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_ch_fee_check_seai.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,37);
end;
procedure Tfrm_ch_fee_check_seai.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_ch_fee_check_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_check_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_check_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>')
+' and <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_check_seai.N17Click(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 where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+default_sort(54,'t_op_seai','','desc');
t_op_seai.open
end;
procedure Tfrm_ch_fee_check_seai.N34Click(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 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_check_seai.N36Click(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 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_check_seai.N2Click(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>״̬<>'+''''+'<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_check_seai.N4Click(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>״̬<>'+''''+'<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_check_seai.N6Click(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 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_check_seai.N8Click(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 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_check_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_check_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_check_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_check_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_check_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_check_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_check_seai.N20Click(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>״̬<>'+''''+'<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_check_seai.N23Click(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>״̬<>'+''''+'<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_check_seai.N24Click(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 where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+') '
+default_sort(54,'t_op_seai','','desc');
t_op_seai.open;
end;
procedure Tfrm_ch_fee_check_seai.N25Click(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 where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+') '
+default_sort(54,'t_op_seai','','desc');
t_op_seai.open;
end;
procedure Tfrm_ch_fee_check_seai.bsSkinPageControl1Change(Sender: TObject);
begin
if frm_op_seai_check_create=false then
exit;
{$IFDEF DLFENZHANG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_fenzhang) then
begin
frm_op_seae_fenzhang:=tfrm_op_seae_fenzhang.Create (self);
frm_op_seae_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_fenzhang.open;
frm_op_seae_fenzhang.t_ch_fee.open;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.Close;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_fenzhango.open;
frm_op_seae_fenzhang.t_op_fenzhang.Close;
frm_op_seae_fenzhang.t_op_fenzhang.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_op_fenzhang.Open;
frm_op_seae_fenzhang.t_ch_fee_pl.Close;
frm_op_seae_fenzhang.t_ch_fee_pl.DataSource:=t_op_seai1;
frm_op_seae_fenzhang.t_ch_fee_pl.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detail.open;
frm_op_seae_fenzhang.t_ch_fee_pl_detailf.open;
frm_op_seae_fenzhang.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_fenzhang.show;
end;
exit;
end;
{$ENDIF}
end;
procedure Tfrm_ch_fee_check_seai.bsSkinButton11Click(Sender: TObject);
begin
if t_op_seai_fen.IsEmpty then
begin
showmessage('û<>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
exit;
end;
bsSkinNotebook1.PageIndex:=1;
t_op_seai2.Enabled:=false;
t_op_seai2.DataSet:=t_op_seai_fen;
t_op_seai2.Enabled:=true;
end;
procedure Tfrm_ch_fee_check_seai.bsSkinButton4Click(Sender: TObject);
begin
try
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seai_fen;
with frm_ch_fee_zhupiao do
begin
if if_open('058') then
begin
fra_fee_zhu1.t_ch_accept.close;
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seai;
fra_fee_zhu1.dxDBGrid1.FullExpand;
fra_fee_zhu1.bsSkinPanel3.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel3.visible:=false;
if if_open('059') then
begin
fra_fee_zhu1.t_ch_pay.close;
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seai;
fra_fee_zhu1.dxDBGrid2.FullExpand;
fra_fee_zhu1.bsSkinPanel4.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel4.visible:=false;
if fra_fee_zhu1.bsSkinPanel3.visible and
fra_fee_zhu1.bsSkinPanel4.visible then
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain.open;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain_fen.open;
end
else
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
end;
fra_fee_zhu1.dxDBGrid3.FullExpand;
end;
frm_ch_fee_zhupiao.ShowModal;
finally
;
end;
end;
procedure Tfrm_ch_fee_check_seai.bsSkinButton3Click(Sender: TObject);
begin
bsSkinNotebook1.PageIndex:=0;
t_op_seai2.Enabled:=false;
t_op_seai2.DataSet:=t_op_seai;
t_op_seai2.Enabled:=true;
end;
end.