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 '8d4eab1c97'
${ noResults }
DONGSHENG6/空运业务/u_op_aire_add.~pas

425 lines
12 KiB
Plaintext
Raw Normal View History Unescape Escape

1
12 months ago
unit u_op_aire_add;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker,inifiles;
type
Tfrm_op_aire_add = class(TForm)
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsBusinessSkinForm1: TbsBusinessSkinForm;
data1: TDataSource;
bsSkinButton3: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
procedure bsSkinButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_aire_add: Tfrm_op_aire_add;
frm_op_aire_add_num:integer;
implementation
uses u_op_aire, u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_op_aire_add.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_aire_add.FormShow(Sender: TObject);
var inifile1:Tinifile;
i:Integer;
begin
if strtobool(get_parameters_value(308,'false')) then
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
i:=inifile1.ReadInteger('other','Airezyfs',0);
if i=0 then
bsSkinCheckRadioBox4.Checked:=true
else if i=1 then
bsSkinCheckRadioBox2.Checked:=true
else if i=2 then
bsSkinCheckRadioBox3.Checked:=true;
end;
wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
wwDBDateTimePicker1.Date:=date;
end;
procedure Tfrm_op_aire_add.bsSkinButton1Click(Sender: TObject);
var
i:Integer;
begin
if (frm_op_aire_add_num=3) then
begin
frm_op_aire.t_op_aire1.Enabled:=false;
frm_op_aire.t_op_aire1.DataSet:=frm_op_aire.t_op_aire_fen;
frm_op_aire.t_op_aire1.Enabled:=true;
data1.DataSet.append;
for i := 0 to (data1.DataSet.DataSource.DataSet.fieldcount-1) do
begin
data1.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName]:=
data1.DataSet.DataSource.DataSet[data1.DataSet.DataSource.DataSet.fields[i].FieldName];
end;
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
if not (Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭') then
data1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:='';
if bsSkinCheckRadioBox7.Checked then
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>'
else
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27>ͷ<EFBFBD>Ա']:=employee;
// data1.DataSet['ʼ<><CABC><EFBFBD><EFBFBD>']:=get_parameters_value(18,'TSINGTAO');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:='QINGDAO,CHINA';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(118,'');
// data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
data1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˼<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˷<EFBFBD>']:=0;
data1.DataSet['<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>˷ѵ<CBB7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ӷѵ<D3B7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ϼ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ϼƵ<CFBC><C6B5><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
{
data1.DataSet['<27><><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˷ѵ<CBB7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ӷѵ<D3B7><D1B5><EFBFBD>']:=0;
}
data1.DataSet['<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='N.V.C';
data1.DataSet['ͨ<>ظ<EFBFBD><D8B8><EFBFBD>']:='N.V.D';
data1.DataSet['<27><><EFBFBD>ս<EFBFBD><D5BD><EFBFBD>']:='NIL';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='RMB';
data1.DataSet['<27>˼ۼ<CBBC><DBBC><EFBFBD>']:='Q';
data1.DataSet['<27><>λ']:='K';
data1.DataSet['<27>˷Ѹ<CBB7><D1B8>ʽ']:='PP';
data1.DataSet['<27>ӷѸ<D3B7><D1B8>ʽ']:='PP';
end else begin
data1.DataSet.Insert;
if bsSkinCheckRadioBox7.Checked then
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>'
else
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27>ͷ<EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['ʼ<><CABC><EFBFBD><EFBFBD>']:=get_parameters_value(18,'TSINGTAO');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:='QINGDAO,CHINA';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(118,'');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(126,'');
// data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27>Ƽ<EFBFBD><C6BC><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˼<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
{
data1.DataSet['<27><><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˷ѵ<CBB7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ӷѵ<D3B7><D1B5><EFBFBD>']:=0;
}
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='N.V.C';
data1.DataSet['ͨ<>ظ<EFBFBD><D8B8><EFBFBD>']:='N.V.D';
data1.DataSet['<27><><EFBFBD>ս<EFBFBD><D5BD><EFBFBD>']:='NIL';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='RMB';
data1.DataSet['<27>˼ۼ<CBBC><DBBC><EFBFBD>']:='Q';
data1.DataSet['<27><>λ']:='K';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>˷<EFBFBD>']:=0;
data1.DataSet['<27>˷<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>˷ѵ<CBB7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ӷ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ӷѵ<D3B7><D1B5><EFBFBD>']:=0;
data1.DataSet['<27>ϼ<EFBFBD>Ԥ<EFBFBD><D4A4>']:=0;
data1.DataSet['<27>ϼƵ<CFBC><C6B5><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>3']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>4']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>5']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>7']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>8']:='';
end;
data1.DataSet['fee']:=0;
data1.DataSet['fee2']:=0;
if frm_op_aire_add_num=1 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_aire_add_num=2 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_aire_add_num=3 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
// frm_op_aire.t_op_aire_fen.Post;
end;
close;
end;
procedure Tfrm_op_aire_add.bsSkinButton3Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if data1.DataSet.IsEmpty then
begin
showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
exit;
end;
afield := vararraycreate([0,data1.DataSet.fieldcount-1],varvariant);
for i := 0 to (data1.DataSet.fieldcount-1) do
begin
afield[i] :=data1.DataSet.fields[i].value ;
end;
if frm_op_aire_add_num=3 then
begin
frm_op_aire.t_op_aire1.Enabled:=false;
frm_op_aire.t_op_aire1.DataSet:=frm_op_aire.t_op_aire_fen;
frm_op_aire.t_op_aire1.Enabled:=true;
end;
data1.DataSet.append;
for i := 0 to (data1.DataSet.fieldcount-1) do begin
data1.DataSet.fields[i].value := afield[i] ;
end;
if bsSkinCheckRadioBox7.Checked then
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>'
else
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
if not (Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭') then
data1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (strtoint(get_parameters_value(158,'0'))=1) and bsSkinCheckRadioBox7.Checked then
AmendAccDate('T_OP_AIRE',data1);
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['ʼ<><CABC><EFBFBD><EFBFBD>']:=get_parameters_value(18,'TSINGTAO');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=get_parameters_value(18,'TSINGTAO');
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
if data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString='' then
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['fee']:=0;
data1.DataSet['fee2']:=0;
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>ע']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=1;
data1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>ǰ״̬']:='';
if frm_op_aire_add_num=1 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_aire_add_num=2 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_aire_add_num=3 then
begin
frm_op_aire.Notebook1.PageIndex:=1;
frm_op_aire.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
frm_op_aire.DBEdit8.ReadOnly:=false;
frm_op_aire.DBEdit8.Color:=clWindow;
close;
end;
procedure Tfrm_op_aire_add.FormClose(Sender: TObject;
var Action: TCloseAction);
var
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if bsSkinCheckRadioBox4.Checked then
inifile1.WriteInteger('other','Airezyfs',0)
if bsSkinCheckRadioBox2.Checked then
inifile1.WriteInteger('other','Airezyfs',1)
if bsSkinCheckRadioBox3.Checked then
inifile1.WriteInteger('other','Airezyfs',2)
end;
end.