|
|
unit u_op_kuaidi_check;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, DB, ADODB, bsSkinCtrls, ExtCtrls, dxExEdtr, dxDBTLCl, dxGrClms,
|
|
|
dxTL, dxDBCtrl, dxDBGrid, dxCntner, StdCtrls, DBCtrls,
|
|
|
wwdbdatetimepicker, Mask, ComCtrls, bsSkinTabs, wwdbedit, Wwdotdot,
|
|
|
Wwdbcomb, RxLookup;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_kuaidi_check = class(TForm)
|
|
|
t_op_kuaidi: TADOQuery;
|
|
|
t_op_kuaidi1: TDataSource;
|
|
|
v_fee_do_seae: TADOQuery;
|
|
|
v_fee_do_seae1: TDataSource;
|
|
|
v_fee_do_seai: TADOQuery;
|
|
|
v_fee_do_seai1: TDataSource;
|
|
|
v_fee_do_aire: TADOQuery;
|
|
|
v_fee_do_aire1: TDataSource;
|
|
|
v_fee_do_airi: TADOQuery;
|
|
|
v_fee_do_airi1: TDataSource;
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
Label4: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label12: TLabel;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label17: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBMemo2: TDBMemo;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
DBMemo4: TDBMemo;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinPageControl3: TbsSkinPageControl;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn7: TdxDBGridDateColumn;
|
|
|
dxDBGrid3Column17: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn9: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn10: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn11: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn12: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
bsSkinTabSheet10: TbsSkinTabSheet;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn13: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn14: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridDateColumn;
|
|
|
Label1: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
Label53: TLabel;
|
|
|
Label2: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
Label52: TLabel;
|
|
|
DBEdit16: TDBEdit;
|
|
|
Label9: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
Label10: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
Label50: TLabel;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
Label51: TLabel;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
Label11: TLabel;
|
|
|
DBEdit17: TDBEdit;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
dxDBGrid1Column26: TdxDBGridColumn;
|
|
|
DBEdit18: TDBEdit;
|
|
|
Label54: TLabel;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(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 DBEdit2Change(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_kuaidi_check: Tfrm_op_kuaidi_check;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function, u_op_kuaidi_query, u_op_kuaidi_shen_do;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
frm_op_kuaidi_check.Hide;
|
|
|
frm_op_kuaidi_check.ManualFloat(frm_op_kuaidi_check.BoundsRect);
|
|
|
frm_main.freeTabs('frm_op_kuaidi_check');
|
|
|
action:=cafree;
|
|
|
frm_op_kuaidi_check:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
t_op_kuaidi.open;
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seai.open;
|
|
|
v_fee_do_aire.open;
|
|
|
v_fee_do_airi.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
if not t_op_kuaidi.Bof then
|
|
|
t_op_kuaidi.Prior;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if not t_op_kuaidi.eof then
|
|
|
t_op_kuaidi.next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',2,t_op_kuaidi1,nil,nil,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_kuaidi.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
|
|
|
and(t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ȷ<EFBFBD>Ϸ<EFBFBD><CFB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
frm_op_kuaidi_shen_do:=tfrm_op_kuaidi_shen_do.Create (self);
|
|
|
frm_op_kuaidi_shen_do.ShowModal;
|
|
|
finally
|
|
|
frm_op_kuaidi_shen_do.Free;
|
|
|
frm_op_kuaidi_shen_do:=nil;
|
|
|
end;
|
|
|
t_op_kuaidi.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton11Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>쿴<EFBFBD><ECBFB4><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
if t_op_kuaidi.IsEmpty then
|
|
|
exit;
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>쿴<EFBFBD><ECBFB4><EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/9);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_kuaidi.close;
|
|
|
t_op_kuaidi.SQL.clear;
|
|
|
t_op_kuaidi.sql.add('select * from t_op_kuaidi where <20><><EFBFBD><EFBFBD>״̬='
|
|
|
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+' order by <20><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>');
|
|
|
t_op_kuaidi.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_kuaidi.IsEmpty then
|
|
|
exit;
|
|
|
if (t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2>أ<EFBFBD><D8A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
t_op_kuaidi.edit;
|
|
|
t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
t_op_kuaidi.post;
|
|
|
t_op_kuaidi.Refresh;
|
|
|
Send_invocie_check_check('<27><><EFBFBD>ؿ<EFBFBD><D8BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>:'+t_op_kuaidi.fieldbyname('<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>').asstring
|
|
|
,t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'36');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_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
|
|
|
if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>') then
|
|
|
AColor :=clwhite
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
AColor :=clyellow
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
|
|
|
AColor :=clred
|
|
|
else if (ANode.strings[dxDBGrid1Column2.Index]='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>') then
|
|
|
AColor :=$00DDF21C;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.DBEdit2Change(Sender: TObject);
|
|
|
begin
|
|
|
if (DBEdit2.Text='') or (DBEdit2.Text='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>')then
|
|
|
DBEdit2.Color:=clwhite
|
|
|
else if (DBEdit2.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
DBEdit2.Color:=clyellow
|
|
|
else if (DBEdit2.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
|
|
|
DBEdit2.Color:=clred
|
|
|
else if (DBEdit2.Text='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>') then
|
|
|
DBEdit2.Color:=$00DDF21C;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_kuaidi_check.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_op_kuaidi_query:=tfrm_op_kuaidi_query.Create (self);
|
|
|
kuaidi_query_num:=2;
|
|
|
frm_op_kuaidi_query.ShowModal;
|
|
|
finally
|
|
|
frm_op_kuaidi_query.Free;
|
|
|
frm_op_kuaidi_query:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|