D6HECHUAN/公用模块/业务系统/u_op_kuaidi_shen_do.pas

84 lines
2.0 KiB
Plaintext

unit u_op_kuaidi_shen_do;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, DBCtrls, StdCtrls, Mask, wwdbedit, Wwdotdot,
Wwdbcomb, RxLookup, bsSkinCtrls;
type
Tfrm_op_kuaidi_shen_do = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
Label53: TLabel;
RxDBLookupCombo5: TRxDBLookupCombo;
Label50: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label51: TLabel;
DBEdit3: TDBEdit;
Label52: TLabel;
DBEdit16: TDBEdit;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
procedure bsSkinButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_kuaidi_shen_do: Tfrm_op_kuaidi_shen_do;
implementation
uses u_op_kuaidi_check, u_data_share, u_main, my_sys_chat;
{$R *.dfm}
procedure Tfrm_op_kuaidi_shen_do.bsSkinButton1Click(Sender: TObject);
begin
if DBEdit16.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1>ţ<EFBFBD><C5A3><EFBFBD>');
exit;
end;
if RxDBLookupCombo5.DisplayValue='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݹ<EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>');
exit;
end;
if wwDBComboBox1.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѷ<EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>');
exit;
end;
if DBEdit3.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EEA3A1>');
exit;
end;
frm_op_kuaidi_check.t_op_kuaidi.edit;
frm_op_kuaidi_check.t_op_kuaidi['<27><><EFBFBD><EFBFBD>״̬']:='ȷ<>Ϸ<EFBFBD><CFB7><EFBFBD>';
frm_op_kuaidi_check.t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
frm_op_kuaidi_check.t_op_kuaidi['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
frm_op_kuaidi_check.t_op_kuaidi.post;
Send_invocie_check_check('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD>Ϸ<EFBFBD><CFB7><EFBFBD>,<2C><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>:'+frm_op_kuaidi_check.t_op_kuaidi.fieldbyname('<27><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>').asstring
,frm_op_kuaidi_check.t_op_kuaidi.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,'35');
close;
end;
procedure Tfrm_op_kuaidi_shen_do.FormShow(Sender: TObject);
begin
frm_data_share.t_crm_client_kuaidi.requery;
end;
procedure Tfrm_op_kuaidi_shen_do.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
end.