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.

161 lines
4.9 KiB
Plaintext

unit u_op_airi_oder_add;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB,
RxLookup,my_sys_chat;
type
Tfrm_op_airi_order_add = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinGroupBox1: TbsSkinGroupBox;
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
data1: TDataSource;
Label16: TLabel;
RxDBLookupCombo14: TRxDBLookupCombo;
Label42: TLabel;
RxDBLookupCombo30: TRxDBLookupCombo;
Label17: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
data2: TDataSource;
Label19: TLabel;
RxDBLookupCombo12: TRxDBLookupCombo;
Label20: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
data3: TDataSource;
procedure FormShow(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure RxDBLookupCombo14Change(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure RxDBLookupCombo29Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_airi_order_add: Tfrm_op_airi_order_add;
frm_op_seae_add_num:integer;
implementation
uses u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_op_airi_order_add.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_airi_order_add.FormShow(Sender: TObject);
begin
wwDBDateTimePicker1.Date:=date;
end;
procedure Tfrm_op_airi_order_add.bsSkinButton3Click(Sender: TObject);
var
i: Integer;
bsno,ywno:String;
begin
if (RxDBLookupCombo14.DisplayValue='') or (RxDBLookupCombo14.DisplayValue='') or (RxDBLookupCombo14.DisplayValue='')
or (RxDBLookupCombo14.DisplayValue='') or (RxDBLookupCombo14.DisplayValue='') then begin
MessageDlg('ËùÓÐÏîÄ¿¶¼²»Îª¿Õ£¡', mtConfirmation, [mbYes],0);
exit;
end;
if not data1.DataSet.Active then data1.DataSet.Open;
data1.DataSet.Insert;
bsno:=get_id;
data1.DataSet['񅧏']:=bsno;
data1.DataSet['ÒµÎñ±àºÅ']:='';
data1.DataSet['¼Æ·Ñ±ê×¼']:='';
data1.DataSet['ÒµÎñ״̬']:='½ÓÊÜίÍÐ';
data1.DataSet['·ÑÓÃ״̬']:='¼Èë״̬';
data1.DataSet['»á¼ÆÆÚ¼ä']:=wwDBDateTimePicker1.date;
data1.DataSet['ÖÜ´Î']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['¼ÈëÈË']:=employee;
data1.DataSet['¼ÈëÈÕÆÚ']:=date;
data1.DataSet['²Ù×÷Ô±']:=RxDBLookupCombo14.DisplayValue;
// data1.DataSet['±¨¹Ø²Ù×÷']:=employee;
data1.DataSet['À¿»õÈË']:=RxDBLookupCombo29.DisplayValue;
data1.DataSet['¿Í·þÔ±']:=RxDBLookupCombo13.DisplayValue;
data1.DataSet['ÏúÊÛ²¿ÃÅ']:=RxDBLookupCombo12.DisplayValue;
data1.DataSet['²Ù×÷²¿ÃÅ']:=RxDBLookupCombo30.DisplayValue;
data1.DataSet['ÒµÎñÀ´Ô´']:='×ÔÀ¿»õ';
data1.DataSet['ίÍе¥Î»']:=data2.DataSet['ίÍе¥Î»'];
data1.DataSet['×°ÔË·½Ê½']:='¿ÕÔ˵¥Æ±';
data1.DataSet['ÒµÎñÀàÐÍ']:='ÆÕͨ»õ';
ywno:=get_no(wwDBDateTimePicker1.date,getbsno(Logininfo.AirImpBsNo,'AI'));
data1.DataSet['ÒµÎñ±àºÅ']:=ywno;
data1.DataSet['Ö÷±àºÅ']:=bsno;
data1.DataSet['Ö÷Ìáµ¥±ê×¼']:=bsno;
data1.DataSet['·ÖÌáµ¥±ê×¼']:=bsno;
data1.DataSet['ίÍбê×¼']:=bsno;
// data1.DataSet['´¬Ãû']:=data2.DataSet['´¬Ãû'];
data1.DataSet['º½°àºÅ']:=data2.DataSet['º½´Î'];
data1.DataSet['½ø¿ÚÈÕÆÚ']:=data2.DataSet['¿ª´¬ÈÕÆÚ'];
data1.DataSet['ʼ·¢¸Û']:=data2.DataSet['×°»õ¸Û'];
data1.DataSet['Ä¿µÄ¸Û']:=data2.DataSet['ж»õ¸Û'];
// data1.DataSet['ÔËÊäÌõ¿î']:=data2.DataSet['ÔËÊäÌõ¿î'];
data1.DataSet['ßéÍ·']:=data2.DataSet['ßéÍ·'];
data1.DataSet['»õÎïÃèÊö']:=data2.DataSet['»õÎïÃèÊö'];
data1.DataSet['¼þÊý']:=data2.DataSet['¼þÊý'];
// data1.DataSet['°ü×°']:=data2.DataSet['°ü×°'];
data1.DataSet['¼Æ¼ÛÖØÁ¿']:=data2.DataSet['ÖØÁ¿'];
// data1.DataSet['³ßÂë']:=data2.DataSet['³ßÂë'];
data1.DataSet['±¸×¢']:=data2.DataSet['±¸×¢'];
// data1.DataSet['Ç©µ¥µØµã']:=get_parameters_value(49,'QINGDAO,CHINA');
// data1.DataSet['Ô¤¸¶µØµã']:=get_parameters_value(50,'QINGDAO,CHINA');
data1.DataSet['²ÆÎñ']:=0;
data1.DataSet['²ÆÎñƾ֤']:='';
data1.DataSet.Post;
Data2.DataSet.Edit;
Data2.DataSet['¶©²Õ״̬']:=1;
Data2.DataSet['ÒµÎñ±àºÅ']:=bsno;
Data2.DataSet.Post;
close;
end;
procedure Tfrm_op_airi_order_add.RxDBLookupCombo14Change(Sender: TObject);
begin
if RxDBLookupCombo14.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('ÐÕÃû',RxDBLookupCombo14.DisplayValue,[]) then
RxDBLookupCombo30.DisplayValue:=frm_data_share.t_sys_employee['²¿ÃÅÃû³Æ'];
end;
procedure Tfrm_op_airi_order_add.RxDBLookupCombo29Change(Sender: TObject);
begin
if RxDBLookupCombo29.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('ÐÕÃû',RxDBLookupCombo29.DisplayValue,[]) then
RxDBLookupCombo12.DisplayValue:=frm_data_share.t_sys_employee['²¿ÃÅÃû³Æ'];
end;
end.