hanxuntao
/
DONGSHENG6
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 '9abf05a513'
${ noResults }
DONGSHENG6/财务管理/u_ch_check_check.pas

1050 lines
34 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_ch_check_check;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
dxDBCtrl, dxCntner, DB, ADODB, StdCtrls, DBCtrls, bsdbctrls, RxLookup,
Mask, ComCtrls, bsSkinTabs, Menus, XPMenu, kbmMemTable,
wwdbdatetimepicker;
type
Tfrm_ch_check_check = class(TForm)
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinNotebook1: TbsSkinNotebook;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridDateColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridDateColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridDateColumn;
bsSkinPanel1: TbsSkinPanel;
t_ch_check: TADOQuery;
t_ch_check1: TDataSource;
v_fee_do_seae: TADOQuery;
v_fee_do_seae1: TDataSource;
Label25: TLabel;
DBEdit14: TDBEdit;
Label17: TLabel;
DBEdit1: TDBEdit;
Label12: TLabel;
RxDBLookupCombo1: TRxDBLookupCombo;
Label2: TLabel;
RxDBLookupCombo2: TRxDBLookupCombo;
Label3: TLabel;
DBEdit4: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label1: TLabel;
Label5: TLabel;
DBEdit6: TDBEdit;
Label18: TLabel;
DBEdit5: TDBEdit;
Label10: TLabel;
DBMemo1: TDBMemo;
Label6: TLabel;
DBEdit7: TDBEdit;
Label7: TLabel;
DBEdit8: TDBEdit;
Label8: TLabel;
DBEdit9: TDBEdit;
Label9: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBMemo2: TDBMemo;
bsSkinPanel3: TbsSkinPanel;
dxDBGrid1Column16: TdxDBGridColumn;
Label13: TLabel;
DBEdit11: TDBEdit;
v_fee_do_seai: TADOQuery;
v_fee_do_seai1: TDataSource;
v_fee_do_aire: TADOQuery;
v_fee_do_airi: TADOQuery;
v_fee_do_airi1: TDataSource;
v_fee_do_aire1: TDataSource;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinButton12: TbsSkinButton;
PopupMenu3: TPopupMenu;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N1: TMenuItem;
N6: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
v_fee_do_seae_sum: TADOQuery;
v_fee_do_seae_sum1: TDataSource;
v_fee_do_seai_sum: TADOQuery;
v_fee_do_seai_sum1: TDataSource;
v_fee_do_aire_sum: TADOQuery;
v_fee_do_aire_sum1: TDataSource;
v_fee_do_airi_sum: TADOQuery;
v_fee_do_airi_sum1: TDataSource;
bsSkinPageControl2: TbsSkinPageControl;
bsSkinTabSheet3: TbsSkinTabSheet;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
dxDBGrid6Column22: TdxDBGridColumn;
dxDBGridDateColumn9: TdxDBGridDateColumn;
dxDBGridDateColumn10: TdxDBGridDateColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGrid11: TdxDBGrid;
dxDBGrid5Column4: TdxDBGridColumn;
dxDBGrid5Column1: TdxDBGridMaskColumn;
dxDBGrid5Column2: TdxDBGridColumn;
dxDBGrid5Column5: TdxDBGridColumn;
dxDBGrid5Column6: TdxDBGridColumn;
dxDBGrid5Column3: TdxDBGridColumn;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGrid;
dxDBGrid6Column4: TdxDBGridColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridColumn36: TdxDBGridColumn;
dxDBGrid6Column5: TdxDBGridColumn;
dxDBGrid6Column6: TdxDBGridColumn;
dxDBGridColumn43: TdxDBGridColumn;
bsSkinTabSheet5: TbsSkinTabSheet;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGrid8Column19: TdxDBGridColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGrid;
dxDBGrid7Column4: TdxDBGridColumn;
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
dxDBGridColumn37: TdxDBGridColumn;
dxDBGrid7Column5: TdxDBGridColumn;
dxDBGrid7Column6: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
bsSkinTabSheet6: TbsSkinTabSheet;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
dxDBGridColumn16: TdxDBGridColumn;
dxDBGridDateColumn7: TdxDBGridDateColumn;
dxDBGridDateColumn8: TdxDBGridDateColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGrid;
dxDBGrid8Column4: TdxDBGridColumn;
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
dxDBGridColumn46: TdxDBGridColumn;
dxDBGrid8Column5: TdxDBGridColumn;
dxDBGrid8Column6: TdxDBGridColumn;
dxDBGridColumn47: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column18: TdxDBGridColumn;
bsSkinPanel4: TbsSkinPanel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBMemo3: TDBMemo;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBMemo4: TDBMemo;
DBEdit24: TDBEdit;
t_ch_checkDSDesigner: TStringField;
t_ch_checkDSDesigner2: TStringField;
t_ch_checkDSDesigner3: TStringField;
t_ch_checkDSDesigner4: TStringField;
t_ch_checkDSDesigner5: TStringField;
t_ch_checkDSDesigner6: TBCDField;
t_ch_checkDSDesigner7: TBCDField;
t_ch_checkDSDesigner8: TBCDField;
t_ch_checkDSDesigner9: TStringField;
t_ch_checkDSDesigner10: TBooleanField;
t_ch_checkDSDesigner11: TStringField;
t_ch_checkDSDesigner12: TDateTimeField;
t_ch_checkDSDesigner13: TStringField;
t_ch_checkDSDesigner14: TDateTimeField;
t_ch_checkDSDesigner15: TStringField;
t_ch_checkDSDesigner16: TDateTimeField;
t_ch_checkDSDesigner17: TStringField;
t_ch_checkDSDesigner18: TStringField;
t_ch_checkDSDesigner19: TStringField;
t_ch_checkDSDesigner20: TStringField;
t_ch_checkDSDesigner21: TDateTimeField;
t_ch_checkDSDesigner22: TBCDField;
t_ch_checkDSDesigner23: TBCDField;
t_ch_checkField: TFloatField;
t_ch_checkField2: TFloatField;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
t_ch_checkDSDesigner24: TBooleanField;
bsSkinButton38: TbsSkinButton;
memtblprint: TkbmMemTable;
memtblprint1: TDataSource;
t_ch_checkDSDesigner25: TDateTimeField;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridColumn;
t_ch_checkDSDesigner26: TSmallintField;
bsSkinButton4: TbsSkinButton;
dxDBGrid1Column23: TdxDBGridColumn;
v_fee_do_airtruck: TADOQuery;
v_fee_do_airtruck1: TDataSource;
v_fee_do_airtruck_sum: TADOQuery;
v_fee_do_airtruck_sum1: TDataSource;
bsSkinTabSheet7: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridColumn23: TdxDBGridColumn;
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
dxDBGridColumn24: TdxDBGridColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
dxDBGridColumn26: TdxDBGridColumn;
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
bsSkinTabSheet8: TbsSkinTabSheet;
dxDBGrid8: TdxDBGrid;
dxDBGridColumn25: TdxDBGridColumn;
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
dxDBGridColumn27: TdxDBGridColumn;
dxDBGridColumn28: TdxDBGridColumn;
dxDBGridColumn29: TdxDBGridColumn;
dxDBGridColumn30: TdxDBGridColumn;
dxDBGrid9: TdxDBGrid;
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
dxDBGridColumn31: TdxDBGridColumn;
dxDBGridColumn32: TdxDBGridColumn;
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
dxDBGridColumn33: TdxDBGridColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
dxDBGridColumn34: TdxDBGridColumn;
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
v_fee_do_railway: TADOQuery;
v_fee_do_railway1: TDataSource;
v_fee_do_railway_sum: TADOQuery;
v_fee_do_railway_sum1: TDataSource;
Label121: TLabel;
DBEdit88: TDBEdit;
Label122: TLabel;
wwDBDateTimePicker4: TwwDBDateTimePicker;
DBEdit87: TDBEdit;
Label120: TLabel;
t_ch_checkDSDesigner27: TDateTimeField;
t_ch_checkDSDesigner28: TStringField;
t_ch_checkDSDesigner29: TStringField;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
DBEdit25: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
DBEdit26: TDBEdit;
dxDBGrid1Column24: TdxDBGridColumn;
dxDBGrid1Column25: TdxDBGridColumn;
dxdbgrdclmndxDBGrid1Column26: TdxDBGridColumn;
dxDBGrid6Column23: TdxDBGridColumn;
dxDBGrid6Column24: TdxDBGridColumn;
dxDBGrid3Column23: TdxDBGridColumn;
dxDBGrid3Column24: TdxDBGridColumn;
dxDBGrid1Column27: TdxDBGridColumn;
t_ch_checkDSDesigner30: TStringField;
Label36: TLabel;
DBEdit27: TDBEdit;
bsSkinTabSheetttl: TbsSkinTabSheet;
dxDBGrid10: TdxDBGrid;
dxDBGridColumn35: TdxDBGridColumn;
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGrid15: TdxDBGrid;
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
dxDBGridColumn48: TdxDBGridColumn;
dxDBGridColumn49: TdxDBGridColumn;
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
dxDBGridColumn50: TdxDBGridColumn;
dxDBGridDateColumn11: TdxDBGridDateColumn;
dxDBGridDateColumn12: TdxDBGridDateColumn;
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
dxDBGridColumn51: TdxDBGridColumn;
dxDBGridColumn52: TdxDBGridColumn;
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
dxDBGridColumn53: TdxDBGridColumn;
dxDBGridColumn54: TdxDBGridColumn;
v_fee_do_bscard: TADOQuery;
v_fee_do_bscard1: TDataSource;
v_fee_do_bscard_sum: TADOQuery;
v_fee_do_bscard_sum1: TDataSource;
dxDBGrid15Column25: TdxDBGridColumn;
dxDBGrid15Column26: TdxDBGridColumn;
dxDBGrid15Column27: TdxDBGridCheckColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure DBEdit1Change(Sender: TObject);
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 bsSkinButton10Click(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 bsSkinPanel2Resize(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure dxDBGrid6DblClick(Sender: TObject);
procedure dxDBGrid3DblClick(Sender: TObject);
procedure dxDBGrid4DblClick(Sender: TObject);
procedure dxDBGrid5DblClick(Sender: TObject);
procedure t_ch_checkCalcFields(DataSet: TDataSet);
procedure bsSkinButton38Click(Sender: TObject);
procedure bsSkinNotebook1PageChanged(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure dxDBGrid7DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ch_check_check:boolean;
frm_ch_check_check: Tfrm_ch_check_check;
implementation
uses u_main, u_ch_shen_query, my_sys_function, u_data_share, my_sys_chat;
{$R *.dfm}
procedure Tfrm_ch_check_check.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ch_check_check:=false;
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid3,caption+'3');
savereggrid(dxdbgrid4,caption+'4');
savereggrid(dxdbgrid5,caption+'5');
savereggrid(dxdbgrid6,caption+'6');
savereggrid(dxdbgrid7,caption+'7');
savereggrid(dxdbgrid9,caption+'9');
frm_ch_check_check.Hide;
frm_ch_check_check.ManualFloat(frm_ch_check_check.BoundsRect );
frm_main.freeTabs('frm_ch_check_check');
action:=cafree;
frm_ch_check_check:=nil;
end;
procedure Tfrm_ch_check_check.bsSkinButton3Click(Sender: TObject);
begin
if bsSkinButton3.Caption='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>' then
begin
if t_ch_check.IsEmpty then
exit;
bsSkinNotebook1.PageIndex:=1;
bsSkinButton3.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
bsSkinNotebook1.PageIndex:=0;
bsSkinButton3.Caption:='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>';
end;
end;
procedure Tfrm_ch_check_check.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_check_check.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_ch_check);
end;
procedure Tfrm_ch_check_check.bsSkinButton2Click(Sender: TObject);
begin
table_next(t_ch_check);
end;
procedure Tfrm_ch_check_check.bsSkinButton9Click(Sender: TObject);
var
aQuery:TAdoQuery;
strbs,strwt,strmb:WideString;
begin
//<2F><>ӡ<EFBFBD><D3A1><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD>б<EFBFBD>
memtblprint.close;
memtblprint.Open;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
sql.Add('select distinct ί<>б<EFBFBD><D0B1><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5> from v_op_bscard where <20><><EFBFBD><EFBFBD> in (select ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''')');
Open;
first;
while not eof do begin
if strwt='' then
strwt:=fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString
else
strwt:=strwt+'/'+fieldbyname('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
if strbs='' then
strbs:=fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
else
strbs:=strbs+'/'+fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
if strmb='' then
strmb:=fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString
else
strmb:=strmb+'/'+fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
Next;
end;
memtblprint.Edit;
memtblprint.fieldbyname('bsno').AsString:=strbs;
memtblprint.fieldbyname('wtno').AsString:=strwt;
memtblprint.fieldbyname('mblno').AsString:=strmb;
memtblprint.post;
end;
finally
FreeAndNil(aQuery);
end;
if StrToBool(get_parameters_value(85,'false')) then
begin
sys_print('ҵ<><D2B5>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_check1,memtblprint1,nil,nil,v_fee_do_bscard1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,t_ch_check1,nil,nil);
end
else
begin
sys_print('ҵ<><D2B5>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_ch_check1,memtblprint1,nil,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,t_ch_check1,nil,nil);
end;
end;
procedure Tfrm_ch_check_check.FormShow(Sender: TObject);
begin
bsSkinNotebook1.PageIndex:=0;
t_ch_check.close;
t_ch_check.sql.Clear;
t_ch_check.sql.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'') ');
t_ch_check.sql.Add(' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
t_ch_check.sql.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_ch_check.open;
ch_check_check:=true;
loadreggrid(dxdbgrid1,false,caption+'1');
loadreggrid(dxdbgrid3,false,caption+'3');
loadreggrid(dxdbgrid4,false,caption+'4');
loadreggrid(dxdbgrid5,false,caption+'5');
loadreggrid(dxdbgrid6,false,caption+'6');
loadreggrid(dxdbgrid7,false,caption+'7');
loadreggrid(dxdbgrid9,false,caption+'9');
dxdbgrid1.ShowSummaryFooter:=true;
if StrToBool(get_parameters_value(83,'false')) then
begin
bsSkinPanel4.Visible:=true;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=False;
dxdbgrid1.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=false;
dxdbgrid1.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=False;
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=false;
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=True;
end
else
begin
bsSkinPanel4.Visible:=False;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Visible:=True;
dxdbgrid1.ColumnByFieldName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>').Visible:=False;
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>').Visible:=False;
end;
if not if_open('343') then begin
bsSkinButton4.Visible:=false;
end;
if StrToBool(get_parameters_value(85,'false')) then
begin
v_fee_do_bscard.open;
v_fee_do_bscard_sum.Open;
bsSkinTabSheet3.TabVisible:=false;
bsSkinTabSheet4.TabVisible:=false;
bsSkinTabSheet5.TabVisible:=false;
bsSkinTabSheet6.TabVisible:=false;
bsSkinTabSheet7.TabVisible:=false;
bsSkinTabSheet8.TabVisible:=false;
bsSkinTabSheet8.TabVisible:=false;
bsSkinTabSheetttl.TabVisible:=true;
end
else
begin
v_fee_do_seae.open;
v_fee_do_seai.open;
v_fee_do_aire.open;
v_fee_do_airi.open;
v_fee_do_airtruck.open;
v_fee_do_railway.open;
v_fee_do_seae_sum.Open;
v_fee_do_seai_sum.open;
v_fee_do_aire_sum.open;
v_fee_do_airi_sum.open;
v_fee_do_airtruck_sum.open;
v_fee_do_railway_sum.open;
bsSkinTabSheet3.TabVisible:=true;
bsSkinTabSheet4.TabVisible:=true;
bsSkinTabSheet5.TabVisible:=true;
bsSkinTabSheet6.TabVisible:=true;
bsSkinTabSheet7.TabVisible:=true;
bsSkinTabSheet8.TabVisible:=true;
bsSkinTabSheet8.TabVisible:=true;
bsSkinTabSheetttl.TabVisible:=false;
end;
{
bsSkinGroupBox1.Parent:=dxDBGrid1;
bsSkinGroupBox1.Left:=bsSkinPanel5.Width-150;
bsSkinGroupBox1.Top:=dxDBGrid1.Height-400;
bsSkinGroupBox1.Caption:=bsSkinGroupBox1.Parent.Name+' '+Floattostr(bsSkinGroupBox1.Left)+' '+Floattostr(bsSkinGroupBox1.Top);
}
end;
procedure Tfrm_ch_check_check.bsSkinButton11Click(Sender: TObject);
var aQuery:TAdoQuery;
begin
//<2F><>׼֧<D7BC><D6A7>
if t_ch_check.IsEmpty then
exit;
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
begin
if (t_ch_check.FieldByName('֧<><D6A7><EFBFBD><EFBFBD>ʽ').asstring='<27>ֽ<EFBFBD>') then
begin
if not if_open('177') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
end;
if StrToBool(get_parameters_value(323,'false')) then
begin
aQuery:=CreateAdoQuery;
try
with aQuery do
begin
close;sql.clear;
sql.Add('select ch_id,<2C><><EFBFBD><EFBFBD>״̬,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee where ch_id in ( select ch_id from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+''''+') and <20><><EFBFBD><EFBFBD>״̬=''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>''');
open;
if not IsEmpty then
begin
first;
while not eof do
begin
if fieldbyname('<27><><EFBFBD><EFBFBD>״̬').Asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
begin
edit;
fieldbyname('<27><><EFBFBD><EFBFBD>״̬').Asstring:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring:=employee;
fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=now;
post;
end;
next;
end;
end;
end;
finally
FreeAndNil(aQuery);
end;
end;
t_ch_check.Edit;
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼֧<D7BC><D6A7>';
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_check.post;
t_ch_check.Refresh;
// Send_invocie_check_shen('<27><>׼֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
// +',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,'034','20',t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
Send_invocie_check_check('<27><>׼֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
+',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'26')
end
else
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼֧<D7BC><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_ch_check_check.bsSkinButton6Click(Sender: TObject);
var
str:string;
begin
if t_ch_check.IsEmpty then
exit;
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼֧<D7BC><D6A7>')or
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')then
begin
str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD>벵<EFBFBD><EBB2B5>ԭ<EFBFBD><D4AD>', '<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>', ''));
if str=''then
begin
showmessage('<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
exit;
end;
t_ch_check.Edit;
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_check['<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>']:=str;
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
t_ch_check.post;
t_ch_check.Refresh;
Send_invocie_check_check('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
+',<2C>ͻ<EFBFBD>:'+t_ch_check.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'27')
end
else
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2>أ<EFBFBD><D8A3><EFBFBD>');
end;
end;
procedure Tfrm_ch_check_check.bsSkinButton1Click(Sender: TObject);
begin
if t_ch_check.IsEmpty then
exit;
if (t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>')or
(t_ch_check.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
t_ch_check.Edit;
t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD>޸<EFBFBD>';
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
t_ch_check.post;
t_ch_check.Refresh;
Send_invocie_check_check('<27><>׼<EFBFBD>޸<EFBFBD>֧<EFBFBD><D6A7>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
,t_ch_check.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'28');
end
else
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
end;
end;
procedure Tfrm_ch_check_check.bsSkinButton8Click(Sender: TObject);
begin
shen_modify_back(t_ch_check);
end;
procedure Tfrm_ch_check_check.DBEdit1Change(Sender: TObject);
begin
//״̬<D7B4><CCAC><EFBFBD><EFBFBD>ɫ
if (DBEdit1.Text='') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>') or
(DBEdit1.Text='<27><>׼<EFBFBD>޸<EFBFBD>')then
DBEdit1.Color:=clwhite
else if (DBEdit1.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
DBEdit1.Color:=clyellow
else if (DBEdit1.Text='<27><>ֹ<EFBFBD>޸<EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
DBEdit1.Color:=clred
else if (DBEdit1.Text='<27><>׼֧<D7BC><D6A7>') or (DBEdit1.Text='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
DBEdit1.Color:=$00DDF21C;
end;
procedure Tfrm_ch_check_check.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
//<2F>б<EFBFBD><D0B1><EFBFBD>ɫ
if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>')or
(ANode.strings[dxDBGrid1Column2.Index]='<27><>׼<EFBFBD>޸<EFBFBD>') then
AColor :=clwhite
else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
(ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
AColor :=clyellow
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><>ֹ<EFBFBD>޸<EFBFBD>')or
(ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
AColor :=clred
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><>׼֧<D7BC><D6A7>')or
(ANode.strings[dxDBGrid1Column2.Index]='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
AColor :=$00DDF21C;
AFont.Color:=clblack;
end;
procedure Tfrm_ch_check_check.bsSkinButton10Click(Sender: TObject);
begin
try
frm_ch_shen_query:=tfrm_ch_shen_query.Create (self);
shen_query_type:=5;
shen_query_limited:='1003';
shen_query_op_limited:='no';
frm_ch_shen_query.ShowModal;
bsSkinNotebook1.PageIndex:=0;
finally
frm_ch_shen_query.Free;
end;
end;
procedure Tfrm_ch_check_check.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_ch_check_check.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_ch_check_check.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,5);
end;
procedure Tfrm_ch_check_check.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_ch_check_check.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_ch_check,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_check_check.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/12);
bsSkinButton7.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton12.Left:=bsSkinPanel2.Width-bsSkinButton12.Width-20;
end;
procedure Tfrm_ch_check_check.bsSkinButton12Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton12.ClientToScreen(Point(0,bsSkinButton12.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_check_check.N17Click(Sender: TObject);
begin
t_ch_check.Close;
t_ch_check.SQL.clear;
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>'+''''
+') '
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_check.open;
end;
procedure Tfrm_ch_check_check.N34Click(Sender: TObject);
begin
t_ch_check.Close;
t_ch_check.SQL.clear;
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_check.open;
end;
procedure Tfrm_ch_check_check.N36Click(Sender: TObject);
begin
t_ch_check.Close;
t_ch_check.SQL.clear;
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_check.open;
end;
procedure Tfrm_ch_check_check.N6Click(Sender: TObject);
begin
t_ch_check.Close;
t_ch_check.SQL.clear;
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>׼֧<D7BC><D6A7>'+''''
+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_check.open;
end;
procedure Tfrm_ch_check_check.N4Click(Sender: TObject);
begin
t_ch_check.Close;
t_ch_check.SQL.clear;
t_ch_check.SQL.Add('select * from t_ch_check where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+') '
+' and '+open_data('1003','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_check.open;
end;
procedure Tfrm_ch_check_check.dxDBGrid6DblClick(Sender: TObject);
begin
fee_view(v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_check_check.dxDBGrid3DblClick(Sender: TObject);
begin
fee_view(v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_check_check.dxDBGrid4DblClick(Sender: TObject);
begin
fee_view(v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_check_check.dxDBGrid5DblClick(Sender: TObject);
begin
fee_view(v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_check_check.t_ch_checkCalcFields(DataSet: TDataSet);
begin
if dataset.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then begin
dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
end else begin
dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
dataset.FieldByName('<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat:=0;
end;
end;
procedure Tfrm_ch_check_check.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
if t_ch_check.IsEmpty then
exit;
if bsSkinNotebook1.PageIndex=0 then
begin
book1:=t_ch_check.GetBookmark;
t_ch_check.Requery;
t_ch_check.GotoBookmark(book1);
end
else
begin
book1:=t_ch_check.GetBookmark;
t_ch_check.Refresh;
t_ch_check.GotoBookmark(book1);
end;
end;
procedure Tfrm_ch_check_check.bsSkinNotebook1PageChanged(Sender: TObject);
begin
if not ch_check_check then exit;
if bsSkinNotebook1.PageIndex<>1 then exit;
end;
procedure Tfrm_ch_check_check.bsSkinButton4Click(Sender: TObject);
begin
try
t_ch_check.Edit;
t_ch_check['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
t_ch_check.FieldByName('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>').AsInteger:=0;
t_ch_check.post;
finally
end;
end;
procedure Tfrm_ch_check_check.dxDBGrid7DblClick(Sender: TObject);
begin
fee_view(v_fee_do_airtruck.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
end.