|
|
|
|
unit u_op_open_select;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
Dialogs, DB, bsSkinCtrls, BusinessSkinForm;
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
Tfrm_op_open_select = class(TForm)
|
|
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
|
|
yewu: TDataSource;
|
|
|
|
|
accept: TDataSource;
|
|
|
|
|
pay: TDataSource;
|
|
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
procedure select_open_all();
|
|
|
|
|
procedure select_open_op();
|
|
|
|
|
procedure select_open_fee();
|
|
|
|
|
private
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
public
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
frm_op_open_select: Tfrm_op_open_select;
|
|
|
|
|
open_select_num:integer;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses u_op_seae_close, u_op_seai_close, u_op_aire_close, u_op_airi_close,
|
|
|
|
|
my_sys_chat, my_sys_function;
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_open_select.select_open_all();
|
|
|
|
|
var
|
|
|
|
|
i:integer;
|
|
|
|
|
dsstr,PostUrl,str:string;
|
|
|
|
|
begin
|
|
|
|
|
case open_select_num of
|
|
|
|
|
1:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
if (dsstr='') then
|
|
|
|
|
dsstr:=dsstr+'{'
|
|
|
|
|
else dsstr:=dsstr+',{';
|
|
|
|
|
dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
|
|
|
|
|
dsstr:=dsstr+',"lockStatus":false';
|
|
|
|
|
dsstr:=dsstr+'}';
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
if (dsstr='') then
|
|
|
|
|
dsstr:=dsstr+'{'
|
|
|
|
|
else dsstr:=dsstr+',{';
|
|
|
|
|
dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
|
|
|
|
|
dsstr:=dsstr+',"lockStatus":false';
|
|
|
|
|
dsstr:=dsstr+'}';
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
if (dsstr<>'') then begin
|
|
|
|
|
str:=str+'[';
|
|
|
|
|
str:=str+dsstr;
|
|
|
|
|
str:=str+']';
|
|
|
|
|
PostUrl:='http://47.104.85.216:12345/DataSync/SaveBookingOrderLock';
|
|
|
|
|
TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
|
|
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>',yewu.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
2:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
3:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
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
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
4:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_open_select.select_open_op();
|
|
|
|
|
var
|
|
|
|
|
i:integer;
|
|
|
|
|
begin
|
|
|
|
|
case open_select_num of
|
|
|
|
|
1:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
2:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
3:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
4:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if yewu.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
|
|
|
|
|
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><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'43',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_open_select.select_open_fee();
|
|
|
|
|
var
|
|
|
|
|
i:integer;
|
|
|
|
|
dsstr,PostUrl,str:string;
|
|
|
|
|
begin
|
|
|
|
|
case open_select_num of
|
|
|
|
|
1:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seae_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
if (dsstr='') then
|
|
|
|
|
dsstr:=dsstr+'{'
|
|
|
|
|
else dsstr:=dsstr+',{';
|
|
|
|
|
dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
|
|
|
|
|
dsstr:=dsstr+',"lockStatus":false';
|
|
|
|
|
dsstr:=dsstr+'}';
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
if (dsstr='') then
|
|
|
|
|
dsstr:=dsstr+'{'
|
|
|
|
|
else dsstr:=dsstr+',{';
|
|
|
|
|
dsstr:=dsstr+'"bookingId":'+ yewu.DataSet.FieldByName('DJYID').asstring;
|
|
|
|
|
dsstr:=dsstr+',"lockStatus":false';
|
|
|
|
|
dsstr:=dsstr+'}';
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
if (dsstr<>'') then begin
|
|
|
|
|
str:=str+'[';
|
|
|
|
|
str:=str+dsstr;
|
|
|
|
|
str:=str+']';
|
|
|
|
|
PostUrl:='http://47.104.85.216:12345/DataSync/SaveBookingOrderLock';
|
|
|
|
|
TDsDjyThread.create(PostUrl,str,'','1bccf850845542f89057007e51f78f13','2af5ed1f0cc124bcfc4ba05e4a24eac77f2f582c25737477633a1c0303ac3b8ed647e810880dac58');
|
|
|
|
|
InsertSysLog('<27>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>',yewu.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
2:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_seai_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><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,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
3:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_aire_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
4:
|
|
|
|
|
begin
|
|
|
|
|
if frm_op_airi_close.dxdbgrid1.SelectedCount>=1 then
|
|
|
|
|
begin
|
|
|
|
|
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>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end
|
|
|
|
|
else
|
|
|
|
|
begin
|
|
|
|
|
if (yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')
|
|
|
|
|
and(yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asboolean=false) then
|
|
|
|
|
begin
|
|
|
|
|
yewu.DataSet.edit;
|
|
|
|
|
yewu.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
|
|
|
|
|
yewu.DataSet.post;
|
|
|
|
|
{
|
|
|
|
|
Send_op_do('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7>ý<EFBFBD><C3BD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+yewu.DataSet.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString
|
|
|
|
|
+',<2C><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>:'+yewu.DataSet.fieldbyname('<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD>').AsString,'44',
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27>ͷ<EFBFBD>Ա').AsString,
|
|
|
|
|
yewu.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString);
|
|
|
|
|
}
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_open_select.bsSkinButton5Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
close;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_open_select.bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
if bsSkinCheckRadioBox3.Checked then
|
|
|
|
|
begin
|
|
|
|
|
frm_op_open_select.select_open_all();
|
|
|
|
|
close;
|
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
if bsSkinCheckRadioBox1.Checked then
|
|
|
|
|
begin
|
|
|
|
|
frm_op_open_select.select_open_op();
|
|
|
|
|
close;
|
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
if bsSkinCheckRadioBox2.Checked then
|
|
|
|
|
begin
|
|
|
|
|
frm_op_open_select.select_open_fee();
|
|
|
|
|
close;
|
|
|
|
|
exit;
|
|
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|