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 '48f045977c'
${ noResults }
DS6JIEFENG/业务模块/u_op_close_select.pas

2691 lines
97 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
{$INCLUDE t_main.inc}
unit u_op_close_select;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ADODB, BusinessSkinForm, bsSkinCtrls, DB, StdCtrls,inifiles,
wwdbdatetimepicker;
type
Tfrm_op_close_select = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
yewu: TDataSource;
accept: TDataSource;
pay: TDataSource;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
wwDBDateTimePicker1: TwwDBDateTimePicker;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure select_feng_all(); //<2F><><EFBFBD>ú<EFBFBD>ҵ<EFBFBD><D2B5>ͬʱ<CDAC><CAB1><EFBFBD><EFBFBD>
procedure select_feng_op(); //ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure select_feng_fee(); //<2F><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>
procedure FormShow(Sender: TObject);
private
gdo,xdo,xetddo:smallint;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_close_select: Tfrm_op_close_select;
close_select_num:integer;
implementation
uses u_main, u_op_seae_close, u_op_seai_close,
my_sys_function{$IFDEF JGCHE}{$ENDIF};
{$R *.dfm}
procedure Tfrm_op_close_select.select_feng_all();
var
i,rc:integer;
can_do:boolean;
bookmark:tbookmark;
begin
case close_select_num of
1:
begin
rc:=0;
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
//<2F><><EFBFBD>ݷ<EFBFBD><DDB7><EFBFBD>״̬<D7B4>ж<EFBFBD>
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
//<2F><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC>ĸ<EFBFBD><C4B8><EFBFBD>
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then
begin
if gdo=1 then
begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end
else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then
begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{
if xdo=1 then
begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
}
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
end;
2:
begin
rc:=0;
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'41',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{
if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end; }
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'41',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;}
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
end;
3:
begin
{
rc:=0;
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
4:
begin
{
rc:=0;
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
{$IFDEF JGCHE}
5:
begin
rc:=0;
{
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
{$ENDIF}
6:
begin
{
rc:=0;
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
yewu.DataSet.post;
end;
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
end;
end;
procedure Tfrm_op_close_select.select_feng_op();
var
i:integer;
bookmark:tbookmark;
begin
case close_select_num of
1:
begin
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'41',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
end;
2:
begin
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'41',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
end;
3:
begin
{
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
}
end;
4:
begin
{
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
}
end;
{$IFDEF JGCHE}
5:
begin
{
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
}
end;
{$ENDIF}
6:
begin
{
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
yewu.DataSet.edit;
yewu.DataSet['ҵ<><D2B5>״̬']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
yewu.DataSet.post;
TAdoQuery(yewu.DataSet).Refresh;
end;
end;
}
end;
end;
end;
procedure Tfrm_op_close_select.select_feng_fee();
var
i,rc:integer;
can_do:boolean;
bookmark:tbookmark;
begin
case close_select_num of
1:
begin
rc:=0;
if (frm_op_seae_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seae_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seae_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seae_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;}
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;}
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
end;
2:
begin
rc:=0;
if (frm_op_seai_close.dxdbgrid1.SelectedCount>=1) and (frm_op_seai_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_seai_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_seai_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;}
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
{if xdo=1 then begin
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;}
end;
end;
yewu.DataSet.post;
{
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>÷<EFBFBD><C3B7><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
+',<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString,'42',
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
}
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
end;
3:
begin
{
rc:=0;
if (frm_op_aire_close.dxdbgrid1.SelectedCount>=1) and (frm_op_aire_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_aire_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_aire_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['һ<>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
4:
begin
{
rc:=0;
if (frm_op_airi_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airi_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airi_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airi_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
{$IFDEF JGCHE}
5:
begin
rc:=0;
{
if (frm_op_airtruck_close.dxdbgrid1.SelectedCount>=1) and (frm_op_airtruck_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_airtruck_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_airtruck_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
{$ENDIF}
6:
begin
{
rc:=0;
if (frm_op_railway_close.dxdbgrid1.SelectedCount>=1) and (frm_op_railway_close.bsSkinPageControl1.TabIndex=0) then
begin
bookmark:=yewu.dataset.GetBookmark;
try
for i:=0 to frm_op_railway_close.dxdbgrid1.SelectedCount-1 do
begin
yewu.DataSet.GotoBookmark(pointer(frm_op_railway_close.dxdbgrid1.selectedrows[i]));
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=rc+1;
end;
end;
finally
TAdoQuery(yewu.DataSet).requery;
yewu.DataSet.GotoBookmark(bookmark);
end;
end
else
begin
if yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>' then
begin
can_do:=true;
accept.DataSet.close;
accept.DataSet.open;
accept.DataSet.first;
while not accept.DataSet.eof do
begin
if can_do then
begin
if (accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(accept.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
accept.DataSet.next;
end;
if can_do then
begin
pay.DataSet.close;
pay.DataSet.open;
pay.DataSet.first;
while not pay.DataSet.eof do
begin
if can_do then
begin
if (pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹɾ<D6B9><C9BE>') and
(pay.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
can_do:=false;
end;
end;
pay.DataSet.next;
end;
end;
if can_do then
begin
yewu.DataSet.edit;
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>';
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
if bsSkinCheckRadioBox4.Checked then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (gdo<>0) or (xdo<>0) then begin
if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><>ͨ<EFBFBD><CDA8>' then begin
if gdo=1 then begin
if yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
end else if trim(yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>' then begin
if xdo=1 then
begin
if xetddo=0 then
if yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']>Logininfo.endday then
yewu.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=yewu.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end
else //0
begin
if xetddo=1 then
AmendAccDate(yewu.DataSet.name,yewu);
end;
end;
end;
yewu.DataSet.post;
end else rc:=1;
end;
TAdoQuery(yewu.DataSet).Refresh;
end;
if rc<>0 then
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+inttostr(rc)+'Ʊҵ<C6B1><D2B5>û<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>,<2C><>ע<EFBFBD>⣡',mtWarning,[mbyes],0);
}
end;
end;
end;
procedure Tfrm_op_close_select.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_close_select.bsSkinButton1Click(Sender: TObject);
var
inifile1:tinifile ;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if bsSkinCheckRadioBox4.Checked then begin
if (wwDBDateTimePicker1.text='') then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µĻ<C2B5><C4BB><EFBFBD><EFBFBD>ڼ䣡<DABC><E4A3A1>');
exit;
end;
inifile1.WriteBool('other','closeusedate',true);
inifile1.WriteDate('other','closedate',wwDBDateTimePicker1.Date);
end else begin
inifile1.WriteBool('other','closeusedate',false);
end;
inifile1.free;
if bsSkinCheckRadioBox3.Checked then
begin
frm_op_close_select.select_feng_all();
close;
exit;
end;
if bsSkinCheckRadioBox1.Checked then
begin
frm_op_close_select.select_feng_op();
close;
exit;
end;
if bsSkinCheckRadioBox2.Checked then
begin
frm_op_close_select.select_feng_fee();
close;
exit;
end;
end;
procedure Tfrm_op_close_select.FormShow(Sender: TObject);
var
inifile1:tinifile ;
ab:boolean;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
ab:=inifile1.readBool('other','closeusedate',false);
bsSkinCheckRadioBox4.Checked:=ab;
if ab then
wwDBDateTimePicker1.Date:=inifile1.readDate('other','closedate',date);
inifile1.free;
gdo:=strtoint(get_parameters_value(137,'0'));
xdo:=strtoint(get_parameters_value(138,'0'));
xetddo:=strtoint(get_parameters_value(158,'0'));
end;
end.