hanxuntao
/
DS6JIEFENG
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 }
DS6JIEFENG/海运业务/u_op_seae_add.pas

1336 lines
42 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_seae_add;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker,ADODB,DB;
type
Tfrm_op_seae_add = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
Label1: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
data1: TDataSource;
bsSkinButton3: TbsSkinButton;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinButton4: TbsSkinButton;
OpenDialog1: TOpenDialog;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinCheckRadioBox7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seae_add: Tfrm_op_seae_add;
frm_op_seae_add_num:integer;
implementation
uses u_main, u_op_seae, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_op_seae_add.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_add.bsSkinButton1Click(Sender: TObject);
var
i: Integer;
begin
if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
begin
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;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox8.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox8.Caption;
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 data1.DataSet['װ<>˷<EFBFBD>ʽ']='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>'
else
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><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><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>TEU']:=0;
data1.DataSet['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:='';
data1.DataSet['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
{
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
}
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['Ŀ<>ĵ<EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>˵ֹ<CBB5>']:='';
data1.DataSet['<27><><EFBFBD>ڻ<EFBFBD>Դ<EFBFBD><D4B4>']:='';
data1.DataSet['<27><>׼<EFBFBD>ĺ<EFBFBD>']:='';
data1.DataSet['<27>ɽ<EFBFBD><C9BD><EFBFBD>ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ']:='';
data1.DataSet['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['Ѭ<><D1AC>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['BC״̬']:='N';
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
data1.DataSet['<27>˶<EFBFBD><CBB6>ᵥ']:=0;
end
else
begin
data1.DataSet.Insert;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox8.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox8.Caption;
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>';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
{
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
}
if strtobool(get_parameters_value(170,'false')) then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>˾<EFBFBD><CBBE>';
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['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><><EFBFBD>˸<EFBFBD>']:=get_parameters_value(14,'QINGDAO,CHINA');
data1.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=get_parameters_value(16,'QINGDAO,CHINA');
data1.DataSet['Ŀ<>ĵ<EFBFBD>']:='';
data1.DataSet['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
// data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
if copy(data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring,1,4)='ƴ<><C6B4>'then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(48,'CFS-CFS')
else
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(21,'CY-CY');
data1.DataSet['<27><>ͷ']:=get_parameters_value(22,'N/M');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(116,'');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=get_parameters_value(124,'');
data1.DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=get_parameters_value(23,'FREIGHT PREPAID');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=get_parameters_value(49,'QINGDAO,CHINA');
data1.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=get_parameters_value(50,'QINGDAO,CHINA');
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
data1.DataSet['<27>˶<EFBFBD><CBB6>ᵥ']:=0;
end;
if frm_op_seae_add_num=1 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_seae_add_num=2 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_seae_add_num=3 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
frm_op_seae.t_op_seae2.Enabled:=false;
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
frm_op_seae.t_op_seae2.Enabled:=true;
end;
close;
end;
procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject);
var
EdiString:TStrings;
FileNames,bsno:String;
i: Integer;
begin
if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
begin
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;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox8.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox8.Caption;
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 data1.DataSet['װ<>˷<EFBFBD>ʽ']='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>'
else
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><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><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>TEU']:=0;
data1.DataSet['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:='';
data1.DataSet['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
{
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
}
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['Ŀ<>ĵ<EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>˵ֹ<CBB5>']:='';
data1.DataSet['<27><><EFBFBD>ڻ<EFBFBD>Դ<EFBFBD><D4B4>']:='';
data1.DataSet['<27><>׼<EFBFBD>ĺ<EFBFBD>']:='';
data1.DataSet['<27>ɽ<EFBFBD><C9BD><EFBFBD>ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ']:='';
data1.DataSet['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['Ѭ<><D1AC>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
end
else
begin
data1.DataSet.Insert;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox8.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox8.Caption;
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>';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
{
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
}
if strtobool(get_parameters_value(170,'false')) then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>˾<EFBFBD><CBBE>';
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['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><>ͷ']:='';
data1.DataSet['<27><><EFBFBD>˸<EFBFBD>']:=get_parameters_value(14,'QINGDAO,CHINA');
data1.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=get_parameters_value(16,'QINGDAO,CHINA');
data1.DataSet['Ŀ<>ĵ<EFBFBD>']:='';
data1.DataSet['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
// data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
if copy(data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring,1,4)='ƴ<><C6B4>'then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(48,'CFS-CFS')
else
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(21,'CY-CY');
data1.DataSet['<27><>ͷ']:=get_parameters_value(22,'N/M');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(116,'');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=get_parameters_value(124,'');
data1.DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=get_parameters_value(23,'FREIGHT PREPAID');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=get_parameters_value(49,'QINGDAO,CHINA');
data1.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=get_parameters_value(50,'QINGDAO,CHINA');
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='S';
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
end;
EdiString:=TStringList.Create;
try
OpenDialog1.Execute;
FileNames:=OpenDialog1.FileName;
if FileNames<>'' then begin
EdiString.LoadFromFile(FileNames);
frm_main.db.BeginTrans;
try
NewEdiSeaeIntrra(EdiString,data1);
frm_main.db.CommitTrans;
finally
if frm_main.db.InTransaction then
begin
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ԣ<EFBFBD>');
frm_main.db.RollbackTrans;
end;
end;
end;
finally
FreeAndNil(EdiString);
end;
if frm_op_seae_add_num=1 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_seae_add_num=2 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_seae_add_num=3 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
frm_op_seae.t_op_seae2.Enabled:=false;
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
frm_op_seae.t_op_seae2.Enabled:=true;
end;
close;
end;
procedure Tfrm_op_seae_add.FormShow(Sender: TObject);
begin
wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
wwDBDateTimePicker1.Date:=date;
end;
procedure Tfrm_op_seae_add.bsSkinButton3Click(Sender: TObject);
var
afield : variant;
i: Integer;
PNO,OrgBSNO,oldbsno:string;
aQuery:TADOQuery;
function getamendBsNo(wtbsno:string;mblno:string):string;
var aQuery:TAdoQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;sql.clear;
sql.add('select top 1 ί<>б<EFBFBD><D0B1><EFBFBD> from t_op_seae where ί<>б<EFBFBD><D0B1><EFBFBD> like '''+wtbsno+'%'' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+mblno+''' order by ί<>б<EFBFBD><D0B1><EFBFBD> desc ');
open;
if IsEmpty then
Result:=wtbsno
else
Result:=FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
end;
finally
FreeAndNil(aQuery);
end;
end;
begin
if data1.DataSet.IsEmpty then
begin
showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
exit;
end;
oldbsno:=data1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
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;
data1.DataSet.append;
for i := 0 to (data1.DataSet.fieldcount-1) do
begin
data1.DataSet.fields[i].value := afield[i] ;
end;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox8.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox8.Caption;
if bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>';
PNO:=Trim(data1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
end
else
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>Ͳյ<CDB2>']:='';
OrgBSNO:=get_id;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=OrgBSNO;
data1.DataSet['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>']:='';
data1.DataSet['IRCODE']:='';
// 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
begin
if Trim(PNO)<>'' then
data1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=getamendBsNo(PNO,data1.DataSet.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)+'*';
end;
if not bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>']:='';
end;
data1.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>TEU']:=0;
data1.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:='';
data1.DataSet['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>¶ȵ<C2B6>λ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
// data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='';
data1.DataSet['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD≯ۿ<CCB8>']:='';
data1.DataSet['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:='';
// data1.DataSet['<27><>ע']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
data1.DataSet['BC״̬']:='N';
data1.DataSet['VGM״̬']:='';
data1.DataSet['FEE']:=0;
data1.DataSet['FEE2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>˶<EFBFBD><CBB6>ᵥ']:=0;
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
if data1.DataSet['װ<>˷<EFBFBD>ʽ']='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
if not bsSkinCheckRadioBox7.Checked then
begin
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',data1.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,[])then
begin
if frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end
else if Trim(frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)=''then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>˾<EFBFBD><CBBE>';
end;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',data1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[]) then
data1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
if frm_data_share.t_crm_client_weituo.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',data1.DataSet.fieldbyname('ί<>е<EFBFBD>λ').asstring,[])then
begin
if ((trim(frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>').asstring)<>'') and (trim(frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>').asstring)<>data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString)) then begin
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=trim(frm_data_share.t_crm_client_weituo.fieldbyname('<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>').asstring);
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
end;
end;
end;
// data1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=department;
if data1.DataSet['<27><><EFBFBD><EFBFBD>˾']<>'CMA' THEN
data1.DataSet['<27><><EFBFBD>䷽ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ᵥǩ<E1B5A5><C7A9>״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>걨״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>걨״̬']:='';
data1.DataSet['<27><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (strtoint(get_parameters_value(158,'0'))=1) and bsSkinCheckRadioBox7.Checked then
AmendAccDate('T_OP_SEAE',data1);
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
// data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>˵ֹ<CBB5>']:='';
data1.DataSet['<27><><EFBFBD>ڻ<EFBFBD>Դ<EFBFBD><D4B4>']:='';
data1.DataSet['<27><>׼<EFBFBD>ĺ<EFBFBD>']:='';
data1.DataSet['<27>ɽ<EFBFBD><C9BD><EFBFBD>ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ']:='';
data1.DataSet['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['Ѭ<><D1AC>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
// data1.DataSet['VGM']:=1;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
// data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
if not bsSkinCheckRadioBox7.Checked then
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['<27>ڲ<EFBFBD><DAB2><EFBFBD><EFBFBD>κ<EFBFBD>']:='';
data1.DataSet['DOOR<4F><52>ַ']:='';
data1.DataSet['BC״̬']:='N';
{
if not bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
end;
}
data1.DataSet['<27>ϼ<EFBFBD>20']:=0;
data1.DataSet['<27>ϼ<EFBFBD>40']:=0;
data1.DataSet['<27>ϼ<EFBFBD>40H']:=0;
data1.DataSet['<27>ϼ<EFBFBD>45']:=0;
data1.DataSet['<27><><EFBFBD>ųɱ<C5B3>']:=0;
data1.DataSet['ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
data1.DataSet['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>յ<EFBFBD><D5B5>걨']:='';
if data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').IsNull then
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=''
else data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=data1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').AsString;
if data1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').IsNull then
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:=''
else data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:=data1.DataSet.FieldByName('<27><>Դ<EFBFBD><D4B4>ϸ').AsString;
if not bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet['<27>𵥲<EFBFBD><F0B5A5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='';
data1.DataSet['ȷ<><C8B7>״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD>']:='';
data1.DataSet['<27><>ͬ<EFBFBD><CDAC>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=getzqlx(data1.DataSet['ί<>е<EFBFBD>λ']);
end;
if copy(data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring,1,4)='ƴ<><C6B4>'then
begin
if not strtobool(get_parameters_value(52,'false')) then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
if (data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring<>'ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ') then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
end;
end
else
begin
if not strtobool(get_parameters_value(51,'false')) then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
end;
end;
aQuery:=CreateAdoQuery;
try
With aQuery do begin
Close;sql.clear;
sql.add('insert into T_OP_AMS(<28><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>] ,[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],<2C>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,');
sql.add('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,<2C>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>,<2C>յ<EFBFBD><D5B5>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>,<2C>յ<EFBFBD>֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ί<>з<EFBFBD>,FREIGHTPAYER) ');
sql.add(' select '''+OrgBSNO+''',<2C><><EFBFBD><EFBFBD><EFBFBD>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>绰],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>],[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],[<5B>ջ<EFBFBD><D5BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>] ,[֪ͨ<CDA8><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>],<2C>ջ<EFBFBD><D5BB>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,');
sql.add('֪ͨ<CDA8>˹<EFBFBD><CBB9>Ҵ<EFBFBD><D2B4><EFBFBD>,<2C>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>,<2C>յ<EFBFBD><D5B5>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>,<2C>յ<EFBFBD>֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ί<>з<EFBFBD>,FREIGHTPAYER from T_OP_AMS where <20><><EFBFBD><EFBFBD>='''+oldbsno+'''');
execsql;
end;
finally
FreeAndNil(aQuery);
end;
if bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet.Post;
end;
if frm_op_seae_add_num=1 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_seae_add_num=2 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_seae_add_num=3 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
frm_op_seae.t_op_seae2.Enabled:=false;
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
frm_op_seae.t_op_seae2.Enabled:=true;
end;
frm_op_seae.bsSkinTabSheet1.Show;
close;
end;
{
procedure Tfrm_op_seae_add.bsSkinButton4Click(Sender: TObject);
var
EdiString:TStrings;
FileNames,bsno:String;
i: Integer;
begin
if (frm_op_seae_add_num=3) or (frm_op_seae_add_num=2) then
begin
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;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
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>';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><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><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>TEU']:=0;
data1.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:='';
data1.DataSet['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=department;
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>˵ֹ<CBB5>']:='';
data1.DataSet['<27><><EFBFBD>ڻ<EFBFBD>Դ<EFBFBD><D4B4>']:='';
data1.DataSet['<27><>׼<EFBFBD>ĺ<EFBFBD>']:='';
data1.DataSet['<27>ɽ<EFBFBD><C9BD><EFBFBD>ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ܼ<EFBFBD>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ']:='';
data1.DataSet['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['Ѭ<><D1AC>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:='';
data1.DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
end
else
begin
bsno:=get_id;
data1.DataSet.Append;
if bsSkinCheckRadioBox1.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
data1.DataSet['װ<>˷<EFBFBD>ʽ']:=bsSkinCheckRadioBox6.Caption;
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>';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=employee;
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><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['<27><><EFBFBD>˸<EFBFBD>']:=get_parameters_value(14,'QINGDAO,CHINA');
data1.DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=get_parameters_value(16,'QINGDAO,CHINA');
data1.DataSet['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
// data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=get_parameters_value(20,'THREE');
if copy(data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring,1,4)='ƴ<><C6B4>'then
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(48,'CFS-CFS')
else
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(21,'CY-CY');
data1.DataSet['<27><>ͷ']:=get_parameters_value(22,'N/M');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_parameters_value(116,'');
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=get_parameters_value(124,'');
data1.DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=get_parameters_value(23,'FREIGHT PREPAID');
data1.DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=get_parameters_value(49,'QINGDAO,CHINA');
data1.DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=get_parameters_value(50,'QINGDAO,CHINA');
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=bsno;
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:='';
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:='';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
end;
EdiString:=TStringList.Create;
try
OpenDialog1.Execute;
FileNames:=OpenDialog1.FileName;
if FileNames<>'' then begin
EdiString.LoadFromFile(FileNames);
NewEdiSEAE(EdiString,data1);
end;
finally
FreeAndNil(EdiString);
end;
if frm_op_seae_add_num=1 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
if frm_op_seae_add_num=2 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
end;
if frm_op_seae_add_num=3 then
begin
frm_op_seae.Notebook1.PageIndex:=1;
frm_op_seae.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
frm_op_seae.t_op_seae2.Enabled:=false;
frm_op_seae.t_op_seae2.DataSet:=frm_op_seae.t_op_seae_fen;
frm_op_seae.t_op_seae2.Enabled:=true;
end;
close;
end;
}
procedure Tfrm_op_seae_add.bsSkinCheckRadioBox7Click(Sender: TObject);
begin
bsSkinCheckRadioBox3.Checked:=True;
end;
end.
Reference in New Issue View Git Blame Copy Permalink