hanxuntao
/
D6HECHUAN
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 'master'
${ noResults }
D6HECHUAN/信息资源/u_info_kaoqin_shouquan.pas

132 lines
4.7 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_info_kaoqin_shouquan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RxLookup, StdCtrls, BusinessSkinForm, bsSkinCtrls,
wwdbdatetimepicker;
type
Tfrm_info_kaoqin_shouquan = class(TForm)
Label13: TLabel;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinButton10: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
RxDBLookupList1: TRxDBLookupList;
RxDBLookupCombo5: TRxDBLookupCombo;
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
procedure bsSkinButton5Click(Sender: TObject);
procedure RxDBLookupList1Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_info_kaoqin_shouquan: Tfrm_info_kaoqin_shouquan;
implementation
uses u_main, u_data_share, u_open_info;
{$R *.dfm}
procedure Tfrm_info_kaoqin_shouquan.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_info_kaoqin_shouquan.RxDBLookupList1Click(Sender: TObject);
begin
RxDBLookupCombo5.DisplayValue:=RxDBLookupList1.DisplayValue;
end;
procedure Tfrm_info_kaoqin_shouquan.bsSkinButton10Click(Sender: TObject);
begin
if RxDBLookupCombo5.DisplayValue=''then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>뱻<EFBFBD><EBB1BB>Ȩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
if RxDBLookupCombo5.DisplayValue=employee then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>');
exit;
end;
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA>Ȩ<EFBFBD><C8A8>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
exit;
if bsSkinCheckRadioBox1.Checked then
begin
frm_open_info.p_kaoqin.Parameters.ParamByName('emp').value:=RxDBLookupCombo5.DisplayValue;
frm_open_info.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
frm_open_info.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
frm_open_info.p_kaoqin.Parameters.ParamByName('sh').value:='<27><>';
frm_open_info.p_kaoqin.Parameters.ParamByName('sh_emp').value:=employee;
frm_open_info.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=wwDBDateTimePicker1.date;
frm_open_info.p_kaoqin.ExecProc;
if frm_open_info.p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
if bsSkinCheckRadioBox2.Checked then
begin
frm_open_info.p_kaoqin.Parameters.ParamByName('emp').value:=RxDBLookupCombo5.DisplayValue;
frm_open_info.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
frm_open_info.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
frm_open_info.p_kaoqin.Parameters.ParamByName('sh').value:='<27><>';
frm_open_info.p_kaoqin.Parameters.ParamByName('sh_emp').value:=employee;
frm_open_info.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=wwDBDateTimePicker1.date;
frm_open_info.p_kaoqin.ExecProc;
if frm_open_info.p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
end;
end;
if bsSkinCheckRadioBox4.Checked then
begin
frm_open_info.p_kaoqin.Parameters.ParamByName('emp').value:=RxDBLookupCombo5.DisplayValue;
frm_open_info.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
frm_open_info.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
frm_open_info.p_kaoqin.Parameters.ParamByName('sh').value:='<27><>';
frm_open_info.p_kaoqin.Parameters.ParamByName('sh_emp').value:=employee;
frm_open_info.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=wwDBDateTimePicker1.date;
frm_open_info.p_kaoqin.ExecProc;
if frm_open_info.p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
if bsSkinCheckRadioBox3.Checked then
begin
frm_open_info.p_kaoqin.Parameters.ParamByName('emp').value:=RxDBLookupCombo5.DisplayValue;
frm_open_info.p_kaoqin.Parameters.ParamByName('lei').value:='<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9>';
frm_open_info.p_kaoqin.Parameters.ParamByName('cmp').value:=LocalIP;
frm_open_info.p_kaoqin.Parameters.ParamByName('sh').value:='<27><>';
frm_open_info.p_kaoqin.Parameters.ParamByName('sh_emp').value:=employee;
frm_open_info.p_kaoqin.Parameters.ParamByName('shouquan_date').value:=wwDBDateTimePicker1.date;
frm_open_info.p_kaoqin.ExecProc;
if frm_open_info.p_kaoqin.Parameters.ParamByName('i').value=2 then
begin
showmessage('<27><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>ǩ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
end;
end;
showmessage('<27><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
end;
procedure Tfrm_info_kaoqin_shouquan.FormShow(Sender: TObject);
begin
wwDBDateTimePicker1.date:=date;
end;
end.