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

425 lines
12 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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.
Reference in New Issue View Git Blame Copy Permalink