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_op_kuaidi_shen.~pas

1022 lines
31 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_op_kuaidi_shen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, DB, ADODB, dxDBTLCl, dxGrClms, StdCtrls, Mask, DBCtrls,
wwdbdatetimepicker, ComCtrls, bsSkinTabs, RxLookup, Menus, XPMenu,
wwdbedit, Wwdotdot, Wwdbcomb;
type
Tfrm_op_kuaidi_shen = class(TForm)
Panel2: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
Notebook1: TNotebook;
dxDBGrid1: TdxDBGrid;
t_op_kuaidi: TADOQuery;
t_op_kuaidi1: TDataSource;
t_op_kuaidi_detail: TADOQuery;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridDateColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridDateColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridDateColumn;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label9: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
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;
Label18: TLabel;
DBEdit9: TDBEdit;
DBEdit12: TDBEdit;
DBMemo2: TDBMemo;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
bsSkinGroupBox3: TbsSkinGroupBox;
DBMemo3: TDBMemo;
t_op_seae: TADOQuery;
t_op_seae1: TDataSource;
t_op_seai: TADOQuery;
t_op_aire: TADOQuery;
t_op_airi: TADOQuery;
t_op_airi1: TDataSource;
t_op_aire1: TDataSource;
t_op_seai1: TDataSource;
Panel1: TPanel;
bsSkinPageControl2: TbsSkinPageControl;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinPanel1: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridDateColumn;
dxDBGrid2Column6: TdxDBGridDateColumn;
dxDBGrid2Column7: TdxDBGridMaskColumn;
dxDBGrid2Column18: TdxDBGridColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column10: TdxDBGridMaskColumn;
dxDBGrid2Column14: TdxDBGridMaskColumn;
dxDBGrid2Column11: TdxDBGridMaskColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridColumn;
dxDBGrid2Column15: TdxDBGridMaskColumn;
dxDBGrid2Column16: TdxDBGridMaskColumn;
dxDBGrid2Column17: TdxDBGridMaskColumn;
bsSkinPanel2: TbsSkinPanel;
Label3: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Edit4: TEdit;
Edit2: TEdit;
Edit3: TEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
wwDBDateTimePicker5: TwwDBDateTimePicker;
RxDBLookupCombo2: TRxDBLookupCombo;
bsSkinButton8: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinPanel3: TbsSkinPanel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Edit1: TEdit;
Edit5: TEdit;
Edit6: TEdit;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBDateTimePicker8: TwwDBDateTimePicker;
wwDBDateTimePicker9: TwwDBDateTimePicker;
RxDBLookupCombo1: TRxDBLookupCombo;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinPanel4: TbsSkinPanel;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGrid4Column19: TdxDBGridColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
bsSkinTabSheet5: TbsSkinTabSheet;
bsSkinPanel5: TbsSkinPanel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
wwDBDateTimePicker10: TwwDBDateTimePicker;
wwDBDateTimePicker11: TwwDBDateTimePicker;
wwDBDateTimePicker12: TwwDBDateTimePicker;
wwDBDateTimePicker13: TwwDBDateTimePicker;
RxDBLookupCombo3: TRxDBLookupCombo;
bsSkinButton15: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
bsSkinPanel6: TbsSkinPanel;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinPanel7: TbsSkinPanel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Edit7: TEdit;
Edit11: TEdit;
Edit12: TEdit;
wwDBDateTimePicker14: TwwDBDateTimePicker;
wwDBDateTimePicker15: TwwDBDateTimePicker;
wwDBDateTimePicker16: TwwDBDateTimePicker;
wwDBDateTimePicker17: TwwDBDateTimePicker;
RxDBLookupCombo4: TRxDBLookupCombo;
bsSkinButton17: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinPanel8: TbsSkinPanel;
dxDBGrid11: TdxDBGrid;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
bsSkinGroupBox4: TbsSkinGroupBox;
DBMemo4: TDBMemo;
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;
bsSkinPageControl3: TbsSkinPageControl;
bsSkinTabSheet7: TbsSkinTabSheet;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridDateColumn7: TdxDBGridDateColumn;
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;
dxDBGrid3Column17: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
bsSkinButton19: TbsSkinButton;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid1Column24: TdxDBGridColumn;
wwDBComboBox1: TwwDBComboBox;
Label50: TLabel;
Label51: TLabel;
DBEdit3: TDBEdit;
Label52: TLabel;
DBEdit16: TDBEdit;
RxDBLookupCombo5: TRxDBLookupCombo;
Label53: TLabel;
dxDBGrid1Column25: TdxDBGridColumn;
bsSkinButton20: TbsSkinButton;
XPMenu1: TXPMenu;
Label54: TLabel;
DBEdit17: TDBEdit;
dxDBGrid1Column26: TdxDBGridColumn;
PopupMenu3: TPopupMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
wwDBDateTimePicker18: TwwDBDateTimePicker;
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure t_op_kuaidiAfterInsert(DataSet: TDataSet);
procedure t_op_kuaidiBeforeEdit(DataSet: TDataSet);
procedure t_op_kuaidiBeforePost(DataSet: TDataSet);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure kuaidi_add(dxgrid:TdxDBGrid;table:Tadoquery);
procedure kuaidi_delete(dxgrid:TdxDBGrid;table:Tadoquery);
procedure MenuItem1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton19Click(Sender: TObject);
procedure bsSkinButton20Click(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);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_kuaidi_shen: Tfrm_op_kuaidi_shen;
implementation
uses u_main, u_data_share, my_sys_function, u_code_send_address,
u_op_kuaidi_query, my_sys_chat;
{$R *.dfm}
procedure Tfrm_op_kuaidi_shen.kuaidi_add(dxgrid:TdxDBGrid;table:Tadoquery);
var
i:integer;
begin
if t_op_kuaidi.IsEmpty then
exit;
if t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>' then
exit;
if table.IsEmpty then
exit;
table_post(t_op_kuaidi);
if dxgrid.SelectedCount>=1 then
begin
for i:=0 to dxgrid.SelectedCount-1 do
begin
table.GotoBookmark(pointer(dxgrid.selectedrows[i]));
if not t_op_kuaidi_detail.Locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[])then
begin
t_op_kuaidi_detail.insert;
t_op_kuaidi_detail['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>']:=t_op_kuaidi['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>'];
t_op_kuaidi_detail['<27><><EFBFBD><EFBFBD>']:=table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_op_kuaidi_detail.post;
end;
end;
end
else
begin
if not t_op_kuaidi_detail.Locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[])then
begin
t_op_kuaidi_detail.insert;
t_op_kuaidi_detail['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>']:=t_op_kuaidi['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>'];
t_op_kuaidi_detail['<27><><EFBFBD><EFBFBD>']:=table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_op_kuaidi_detail.post;
end;
end;
end;
procedure Tfrm_op_kuaidi_shen.kuaidi_delete(dxgrid:TdxDBGrid;table:Tadoquery);
var
i:integer;
begin
if t_op_kuaidi.IsEmpty then
exit;
if t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>' then
exit;
if table.IsEmpty then
exit;
if dxgrid.SelectedCount>=1 then
begin
for i:=0 to dxgrid.SelectedCount-1 do
begin
table.GotoBookmark(pointer(dxgrid.selectedrows[i]));
if t_op_kuaidi_detail.Locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[])then
begin
t_op_kuaidi_detail.delete;
end;
end;
end
else
begin
if t_op_kuaidi_detail.Locate('<27><><EFBFBD><EFBFBD>',table.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[])then
begin
t_op_kuaidi_detail.delete;
end;
end;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton12Click(Sender: TObject);
begin
RxDBLookupCombo2.ClearValue;
Edit4.text:='';
Edit3.Text:='';
Edit2.text:='';
wwDBDateTimePicker5.Clear;
wwDBDateTimePicker2.clear;
wwDBDateTimePicker3.clear;
wwDBDateTimePicker4.clear;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton14Click(Sender: TObject);
begin
RxDBLookupCombo1.ClearValue;
Edit1.text:='';
Edit5.Text:='';
Edit6.text:='';
wwDBDateTimePicker9.Clear;
wwDBDateTimePicker6.clear;
wwDBDateTimePicker7.clear;
wwDBDateTimePicker8.clear;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton16Click(Sender: TObject);
begin
RxDBLookupCombo3.ClearValue;
Edit8.text:='';
Edit9.Text:='';
Edit10.text:='';
wwDBDateTimePicker13.Clear;
wwDBDateTimePicker10.clear;
wwDBDateTimePicker11.clear;
wwDBDateTimePicker12.clear;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton18Click(Sender: TObject);
begin
RxDBLookupCombo4.ClearValue;
Edit7.text:='';
Edit11.Text:='';
Edit12.text:='';
wwDBDateTimePicker17.Clear;
wwDBDateTimePicker14.clear;
wwDBDateTimePicker15.clear;
wwDBDateTimePicker16.clear;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton8Click(Sender: TObject);
var
str_op:widestring;
begin
str_op:=' where '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if Edit4.text<>''then
str_op:=str_op+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit4.text+'%'+'''';
if Edit2.text<>''then
str_op:=str_op+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit2.text+'%'+'''';
if Edit3.text<>''then
str_op:=str_op+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
if wwDBDateTimePicker2.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker2.text+'''';
if wwDBDateTimePicker4.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker4.text+'''';
if wwDBDateTimePicker3.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker3.text+'''';
if wwDBDateTimePicker5.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker5.text+'''';
if RxDBLookupCombo2.DisplayValue<>''then
str_op:=str_op+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
str_op:='select * from t_op_seae'+str_op+default_sort(53,'t_op_seae','','desc');
t_op_seae.close;
t_op_seae.SQL.clear;
t_op_seae.sql.Add(str_op);
t_op_seae.open;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton13Click(Sender: TObject);
var
str_op:widestring;
begin
str_op:=' where '+open_data('0002','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if Edit1.text<>''then
str_op:=str_op+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit1.text+'%'+'''';
if Edit5.text<>''then
str_op:=str_op+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit5.text+'%'+'''';
if Edit6.text<>''then
str_op:=str_op+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit6.text+'%'+'''';
if wwDBDateTimePicker6.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker6.text+'''';
if wwDBDateTimePicker8.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker8.text+'''';
if wwDBDateTimePicker7.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker7.text+'''';
if wwDBDateTimePicker9.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker9.text+'''';
if RxDBLookupCombo1.DisplayValue<>''then
str_op:=str_op+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo1.DisplayValues[1]+'''';
str_op:='select * from t_op_seai'+str_op+default_sort(54,'t_op_seai','','desc');
t_op_seai.close;
t_op_seai.SQL.clear;
t_op_seai.sql.Add(str_op);
t_op_seai.open;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton15Click(Sender: TObject);
var
str_op:widestring;
begin
str_op:=' where '+open_data('0003','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no');
if Edit8.text<>''then
str_op:=str_op+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit8.text+'%'+'''';
if Edit9.text<>''then
str_op:=str_op+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit9.text+'%'+'''';
if Edit10.text<>''then
str_op:=str_op+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit10.text+'%'+'''';
if wwDBDateTimePicker10.text<>''then
str_op:=str_op+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker10.text+'''';
if wwDBDateTimePicker12.text<>''then
str_op:=str_op+' and һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
if wwDBDateTimePicker11.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
if wwDBDateTimePicker13.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker13.text+'''';
if RxDBLookupCombo3.DisplayValue<>''then
str_op:=str_op+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo3.DisplayValues[1]+'''';
str_op:='select * from t_op_aire'+str_op+default_sort(55,'t_op_aire','','desc');
t_op_aire.close;
t_op_aire.SQL.clear;
t_op_aire.sql.Add(str_op);
t_op_aire.open;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton17Click(Sender: TObject);
var
str_op:widestring;
begin
str_op:=' where '+open_data('0004','¼<><C2BC><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','no','no');
if Edit7.text<>''then
str_op:=str_op+' and ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit7.text+'%'+'''';
if Edit11.text<>''then
str_op:=str_op+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit11.text+'%'+'''';
if Edit12.text<>''then
str_op:=str_op+' and <20><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD> like '+''''+'%'+Edit12.text+'%'+'''';
if wwDBDateTimePicker14.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker14.text+'''';
if wwDBDateTimePicker16.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker16.text+'''';
if wwDBDateTimePicker15.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>>='+''''+wwDBDateTimePicker15.text+'''';
if wwDBDateTimePicker17.text<>''then
str_op:=str_op+' and <20><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><='+''''+wwDBDateTimePicker17.text+'''';
if RxDBLookupCombo4.DisplayValue<>''then
str_op:=str_op+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo4.DisplayValues[1]+'''';
str_op:='select * from t_op_airi'+str_op+default_sort(56,'t_op_airi','','desc');
t_op_airi.close;
t_op_airi.SQL.clear;
t_op_airi.sql.Add(str_op);
t_op_airi.open;
end;
procedure Tfrm_op_kuaidi_shen.t_op_kuaidiAfterInsert(DataSet: TDataSet);
begin
t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>';
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_op_kuaidi['Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD>˾']:=frm_data_share.t_sys_company.fieldbyname('ȫ<><C8AB>').asstring;
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ']:=frm_data_share.t_sys_company.fieldbyname('<27><>ַ').asstring;
t_op_kuaidi['ʼ<><CABC><EFBFBD><EFBFBD>']:='<27>ൺ';
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD>˵绰']:=frm_data_share.t_sys_company.fieldbyname('<27>绰').asstring;
t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>']:=frm_data_share.t_sys_company.fieldbyname('<27>ʱ<EFBFBD>').asstring;
end;
procedure Tfrm_op_kuaidi_shen.t_op_kuaidiBeforeEdit(DataSet: TDataSet);
begin
if not modify_all then
begin
if (t_op_kuaidi.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>')then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
end;
end;
procedure Tfrm_op_kuaidi_shen.t_op_kuaidiBeforePost(DataSet: TDataSet);
begin
table_before_post(t_op_kuaidi,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_kuaidi,'<27><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD>˾');
table_before_post(t_op_kuaidi,'<27><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ַ');
table_before_post(t_op_kuaidi,'ʼ<><CABC><EFBFBD><EFBFBD>');
table_before_post(t_op_kuaidi,'<27><><EFBFBD><EFBFBD><EFBFBD>˵绰');
//table_before_post(t_op_kuaidi,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>');
table_before_post(t_op_kuaidi,'<27>ռ<EFBFBD><D5BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_op_kuaidi,'<27>ռ<EFBFBD><D5BC>˹<EFBFBD>˾');
table_before_post(t_op_kuaidi,'<27>ռ<EFBFBD><D5BC>˵<EFBFBD>ַ');
table_before_post(t_op_kuaidi,'Ŀ<>ĵ<EFBFBD>');
table_before_post(t_op_kuaidi,'<27>ռ<EFBFBD><D5BC>˵绰');
//table_before_post(t_op_kuaidi,'<27>ռ<EFBFBD><D5BC><EFBFBD><EFBFBD>ʱ<EFBFBD>');
table_before_post(t_op_kuaidi,'<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>');
table_before_post(t_op_kuaidi,'Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if t_op_kuaidi.state=dsinsert then
t_op_kuaidi['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>']:=get_no(date,'KS');
t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:=t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬'];
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton1Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton11Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton11.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
if t_op_kuaidi.IsEmpty then
exit;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
if (t_op_kuaidi.State=dsinsert)or(t_op_kuaidi.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_op_kuaidi.post;
end;
if answer=mrNo then
begin
t_op_kuaidi.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton11.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_op_kuaidi);
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_op_kuaidi);
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton7Click(Sender: TObject);
begin
if not t_op_kuaidi.Bof then
t_op_kuaidi.Prior;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton6Click(Sender: TObject);
begin
if not t_op_kuaidi.eof then
t_op_kuaidi.next;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_kuaidi_shen.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
frm_op_kuaidi_shen.Hide;
frm_op_kuaidi_shen.ManualFloat(frm_op_kuaidi_shen.BoundsRect);
frm_main.freeTabs('frm_op_kuaidi_shen');
action:=cafree;
frm_op_kuaidi_shen:=nil;
end;
procedure Tfrm_op_kuaidi_shen.FormShow(Sender: TObject);
begin
t_op_kuaidi.Close;
t_op_kuaidi.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=employee;
t_op_kuaidi.open;
t_op_kuaidi_detail.open;
v_fee_do_seae.open;
v_fee_do_seai.open;
v_fee_do_aire.open;
v_fee_do_airi.open;
frm_data_share.t_crm_client_kuaidi.requery;
loadreggrid(dxdbgrid1,false,caption);
end;
procedure Tfrm_op_kuaidi_shen.MenuItem1Click(Sender: TObject);
begin
if bsSkinTabSheet3.Showing then
begin
frm_op_kuaidi_shen.kuaidi_add(dxDBGrid2,t_op_seae);
v_fee_do_seae.requery;
exit;
end;
if bsSkinTabSheet4.Showing then
begin
frm_op_kuaidi_shen.kuaidi_add(dxDBGrid5,t_op_seai);
v_fee_do_seai.requery;
exit;
end;
if bsSkinTabSheet5.Showing then
begin
frm_op_kuaidi_shen.kuaidi_add(dxDBGrid8,t_op_aire);
v_fee_do_aire.requery;
exit;
end;
if bsSkinTabSheet6.Showing then
begin
frm_op_kuaidi_shen.kuaidi_add(dxDBGrid11,t_op_airi);
v_fee_do_airi.requery;
exit;
end;
end;
procedure Tfrm_op_kuaidi_shen.N1Click(Sender: TObject);
begin
if bsSkinTabSheet7.Showing then
begin
frm_op_kuaidi_shen.kuaidi_delete(dxDBGrid3,v_fee_do_seae);
v_fee_do_seae.requery;
exit;
end;
if bsSkinTabSheet8.Showing then
begin
frm_op_kuaidi_shen.kuaidi_delete(dxDBGrid4,v_fee_do_seai);
v_fee_do_seai.requery;
exit;
end;
if bsSkinTabSheet9.Showing then
begin
frm_op_kuaidi_shen.kuaidi_delete(dxDBGrid6,v_fee_do_aire);
v_fee_do_aire.requery;
exit;
end;
if bsSkinTabSheet10.Showing then
begin
frm_op_kuaidi_shen.kuaidi_delete(dxDBGrid7,v_fee_do_airi);
v_fee_do_airi.requery;
exit;
end;
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton4Click(Sender: TObject);
begin
if t_op_kuaidi.IsEmpty then
exit;
if t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>' then
exit;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
t_op_kuaidi_detail.First;
while not t_op_kuaidi_detail.Eof do
begin
t_op_kuaidi_detail.Delete;
end;
t_op_kuaidi.delete;
end;
procedure Tfrm_op_kuaidi_shen.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/11);
bsSkinButton7.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton19.Width:=i;
end;
procedure Tfrm_op_kuaidi_shen.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_shen.bsSkinButton19Click(Sender: TObject);
begin
if t_op_kuaidi.IsEmpty then
exit;
if (t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>뷢<EFBFBD><EBB7A2>')
and(t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>룡<EFBFBD><EBA3A1>');
exit;
end;
t_op_kuaidi.edit;
t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>';
t_op_kuaidi.post;
// Send_invocie_check_shen('<27><><EFBFBD>뷢<EFBFBD>Ϳ<EFBFBD><CDBF><EFBFBD>,<2C><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>:'+t_op_kuaidi.fieldbyname('<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>').asstring,'163','34');
showmessage('<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_kuaidi_shen.bsSkinButton20Click(Sender: TObject);
begin
if t_op_kuaidi.IsEmpty then
exit;
if t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>' then
exit;
try
if not assigned(frm_code_send_address) then
frm_code_send_address:=tfrm_code_send_address.Create (self);
frm_code_send_address.ShowModal;
finally
frm_code_send_address.free;
frm_code_send_address:=NIL;
end;
end;
procedure Tfrm_op_kuaidi_shen.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_shen.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_shen.bsSkinButton10Click(Sender: TObject);
begin
try
frm_op_kuaidi_query:=tfrm_op_kuaidi_query.Create (self);
kuaidi_query_num:=1;
frm_op_kuaidi_query.ShowModal;
finally
frm_op_kuaidi_query.Free;
frm_op_kuaidi_query:=nil;
end;
end;
procedure Tfrm_op_kuaidi_shen.N2Click(Sender: TObject);
begin
t_op_kuaidi.insert;
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
procedure Tfrm_op_kuaidi_shen.N4Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_op_kuaidi.IsEmpty then
begin
showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
exit;
end;
afield := vararraycreate([0,t_op_kuaidi.fieldcount-1],varvariant);
for i := 0 to (t_op_kuaidi.fieldcount-1) do
begin
afield[i] :=t_op_kuaidi.fields[i].value ;
end;
t_op_kuaidi.append;
for i := 0 to (t_op_kuaidi.fieldcount-1) do
begin
t_op_kuaidi.fields[i].value := afield[i] ;
end;
t_op_kuaidi['<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>']:='';
t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>뷢<EFBFBD><EBB7A2>';
Notebook1.PageIndex:=1;
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
end.