|
|
unit u_op_seae_weborder;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,
|
|
|
DBCtrls, wwdbdatetimepicker, wwdblook, Menus,
|
|
|
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_weborder = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column4: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label49: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
Label54: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
t_op_seae_danwei: TADOQuery;
|
|
|
t_op_seae_danwei1: TDataSource;
|
|
|
d_onlineBooking: TADOQuery;
|
|
|
dsrd_onlineBooking: TDataSource;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
t_op_ctn: TADOQuery;
|
|
|
t_op_ctn1: TDataSource;
|
|
|
dxDBGrid1Column29: TdxDBGridColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
d_onlineBookingDSDesigner: TIntegerField;
|
|
|
d_onlineBookingDSDesigner2: TStringField;
|
|
|
d_onlineBookingDSDesigner3: TStringField;
|
|
|
d_onlineBookingDSDesigner4: TStringField;
|
|
|
d_onlineBookingDSDesigner5: TStringField;
|
|
|
d_onlineBookingDSDesigner6: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner7: TStringField;
|
|
|
d_onlineBookingDSDesigner8: TStringField;
|
|
|
d_onlineBookingDSDesigner9: TStringField;
|
|
|
d_onlineBookingDSDesigner10: TBooleanField;
|
|
|
d_onlineBookingDSDesigner11: TStringField;
|
|
|
d_onlineBookingDSDesigner12: TStringField;
|
|
|
d_onlineBookingDSDesigner13: TStringField;
|
|
|
d_onlineBookingDSDesigner14: TStringField;
|
|
|
d_onlineBookingDSDesigner15: TStringField;
|
|
|
d_onlineBookingDSDesigner16: TStringField;
|
|
|
d_onlineBookingDSDesigner17: TStringField;
|
|
|
d_onlineBookingDSDesigner18: TStringField;
|
|
|
d_onlineBookingDSDesigner19: TStringField;
|
|
|
d_onlineBookingDSDesigner20: TStringField;
|
|
|
d_onlineBookingDSDesigner21: TStringField;
|
|
|
d_onlineBookingDSDesigner22: TStringField;
|
|
|
d_onlineBookingDSDesigner23: TStringField;
|
|
|
d_onlineBookingDSDesigner24: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner25: TStringField;
|
|
|
d_onlineBookingDSDesigner26: TStringField;
|
|
|
d_onlineBookingDSDesigner27: TStringField;
|
|
|
d_onlineBookingDSDesigner28: TStringField;
|
|
|
d_onlineBookingDSDesigner29: TStringField;
|
|
|
d_onlineBookingDSDesigner30: TStringField;
|
|
|
d_onlineBookingDSDesigner31: TStringField;
|
|
|
d_onlineBookingDSDesigner32: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner33: TStringField;
|
|
|
d_onlineBookingDSDesigner34: TStringField;
|
|
|
d_onlineBookingDSDesigner35: TStringField;
|
|
|
d_onlineBookingDSDesigner36: TStringField;
|
|
|
d_onlineBookingDSDesigner37: TStringField;
|
|
|
d_onlineBookingDSDesigner38: TIntegerField;
|
|
|
d_onlineBookingDSDesigner39: TStringField;
|
|
|
d_onlineBookingDSDesigner40: TBCDField;
|
|
|
d_onlineBookingDSDesigner41: TBCDField;
|
|
|
d_onlineBookingDSDesigner1: TStringField;
|
|
|
d_onlineBookingDSDesigner210: TStringField;
|
|
|
d_onlineBookingDSDesigner310: TStringField;
|
|
|
d_onlineBookingDSDesigner110: TIntegerField;
|
|
|
d_onlineBookingDSDesigner211: TIntegerField;
|
|
|
d_onlineBookingDSDesigner311: TIntegerField;
|
|
|
d_onlineBookingDSDesigner42: TStringField;
|
|
|
d_onlineBookingid: TAutoIncField;
|
|
|
d_onlineBookingDSDesigner43: TIntegerField;
|
|
|
d_onlineBookingDSDesigner44: TStringField;
|
|
|
d_onlineBookingDSDesigner45: TStringField;
|
|
|
d_onlineBookingDSDesigner46: TStringField;
|
|
|
d_onlineBookingDSDesigner47: TStringField;
|
|
|
d_onlineBookingDSDesigner48: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner49: TIntegerField;
|
|
|
d_onlineBookingDSDesigner50: TStringField;
|
|
|
d_onlineBookingDSDesigner51: TStringField;
|
|
|
d_onlineBookingDSDesigner52: TStringField;
|
|
|
d_onlineBookingDSDesigner53: TStringField;
|
|
|
d_onlineBookingDSDesigner54: TStringField;
|
|
|
d_onlineBookingDSDesigner55: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner56: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner57: TStringField;
|
|
|
d_onlineBookingDSDesigner58: TStringField;
|
|
|
d_onlineBookingDSDesigner59: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner60: TStringField;
|
|
|
d_onlineBookingDSDesigner61: TStringField;
|
|
|
d_onlineBookingDSDesigner62: TStringField;
|
|
|
d_onlineBookingDSDesigner63: TStringField;
|
|
|
d_onlineBookingDSDesigner64: TStringField;
|
|
|
d_onlineBookingDSDesigner65: TStringField;
|
|
|
d_onlineBookingDSDesigner66: TStringField;
|
|
|
d_onlineBookingDSDesigner67: TStringField;
|
|
|
d_onlineBookingDSDesigner68: TStringField;
|
|
|
d_onlineBookingDSDesigner69: TStringField;
|
|
|
d_onlineBookingDSDesigner70: TStringField;
|
|
|
d_onlineBookingDSDesigner71: TStringField;
|
|
|
d_onlineBookingDSDesigner72: TStringField;
|
|
|
d_onlineBookingDSDesigner73: TStringField;
|
|
|
d_onlineBookingDSDesigner74: TStringField;
|
|
|
d_onlineBookingDSDesigner75: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner76: TStringField;
|
|
|
d_onlineBookingDSDesigner77: TStringField;
|
|
|
d_onlineBookingDSDesigner78: TStringField;
|
|
|
d_onlineBookingDSDesigner79: TStringField;
|
|
|
d_onlineBookingDSDesigner80: TStringField;
|
|
|
d_onlineBookingDSDesigner81: TStringField;
|
|
|
d_onlineBookingDSDesigner82: TStringField;
|
|
|
d_onlineBookingDSDesigner83: TStringField;
|
|
|
d_onlineBookingDSDesigner84: TStringField;
|
|
|
d_onlineBookingDSDesigner85: TBooleanField;
|
|
|
d_onlineBookingDSDesigner86: TBooleanField;
|
|
|
d_onlineBookingDSDesigner87: TBooleanField;
|
|
|
d_onlineBookingDSDesigner88: TBooleanField;
|
|
|
d_onlineBookingDSDesigner89: TBooleanField;
|
|
|
d_onlineBookingDSDesigner90: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner91: TStringField;
|
|
|
d_onlineBookingDSDesigner92: TStringField;
|
|
|
d_onlineBookingDSDesigner93: TStringField;
|
|
|
d_onlineBookingDSDesigner94: TStringField;
|
|
|
d_onlineBookingDSDesigner95: TStringField;
|
|
|
d_onlineBookingDSDesigner96: TStringField;
|
|
|
d_onlineBookingDSDesigner97: TStringField;
|
|
|
d_onlineBookingDSDesigner98: TBooleanField;
|
|
|
d_onlineBookingDSDesigner99: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner100: TBooleanField;
|
|
|
d_onlineBookingDSDesigner101: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner102: TStringField;
|
|
|
d_onlineBookingDSDesigner103: TStringField;
|
|
|
d_onlineBookingDSDesigner104: TStringField;
|
|
|
d_onlineBookingDSDesigner105: TStringField;
|
|
|
d_onlineBookingDSDesigner106: TStringField;
|
|
|
d_onlineBookingDSDesigner107: TStringField;
|
|
|
d_onlineBookingDSDesigner108: TStringField;
|
|
|
d_onlineBookingDSDesigner109: TStringField;
|
|
|
d_onlineBookingDSDesigner111: TStringField;
|
|
|
d_onlineBookingDSDesigner112: TStringField;
|
|
|
d_onlineBookingDSDesigner113: TStringField;
|
|
|
d_onlineBookingDSDesigner114: TIntegerField;
|
|
|
d_onlineBookingDSDesigner115: TStringField;
|
|
|
d_onlineBookingDSDesigner116: TBooleanField;
|
|
|
d_onlineBookingDSDesigner117: TBooleanField;
|
|
|
d_onlineBookingDSDesigner118: TBooleanField;
|
|
|
d_onlineBookingDSDesigner119: TBooleanField;
|
|
|
d_onlineBookingDSDesigner120: TStringField;
|
|
|
d_onlineBookingDSDesigner121: TBooleanField;
|
|
|
d_onlineBookingDSDesigner122: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner123: TBooleanField;
|
|
|
d_onlineBookingDSDesigner124: TBooleanField;
|
|
|
d_onlineBookingDSDesigner125: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner126: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner127: TStringField;
|
|
|
d_onlineBookingDSDesigner128: TStringField;
|
|
|
d_onlineBookingDSDesigner129: TStringField;
|
|
|
d_onlineBookingDSDesigner130: TBooleanField;
|
|
|
d_onlineBookingDSDesigner131: TStringField;
|
|
|
d_onlineBookingDSDesigner132: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner133: TBCDField;
|
|
|
d_onlineBookingDSDesigner134: TBCDField;
|
|
|
d_onlineBookingDSDesigner135: TBCDField;
|
|
|
d_onlineBookingDSDesigner136: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner137: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner138: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner139: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner140: TStringField;
|
|
|
d_onlineBookingDSDesigner141: TStringField;
|
|
|
d_onlineBookingDSDesigner142: TStringField;
|
|
|
d_onlineBookingDSDesigner143: TBooleanField;
|
|
|
d_onlineBookingDSDesigner144: TStringField;
|
|
|
d_onlineBookingDSDesigner145: TStringField;
|
|
|
d_onlineBookingDSDesigner146: TStringField;
|
|
|
d_onlineBookingDSDesigner147: TStringField;
|
|
|
d_onlineBookingDSDesigner148: TStringField;
|
|
|
d_onlineBookingDSDesigner149: TStringField;
|
|
|
d_onlineBookingDSDesigner150: TBCDField;
|
|
|
d_onlineBookingDSDesigner151: TStringField;
|
|
|
d_onlineBookingDSDesigner152: TStringField;
|
|
|
d_onlineBookingDSDesigner153: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner154: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner155: TStringField;
|
|
|
d_onlineBookingDSDesigner156: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner157: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner158: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner159: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner160: TStringField;
|
|
|
d_onlineBookingDSDesigner161: TStringField;
|
|
|
d_onlineBookingDSDesigner162: TStringField;
|
|
|
d_onlineBookingDSDesigner163: TStringField;
|
|
|
d_onlineBookingDSDesigner164: TStringField;
|
|
|
d_onlineBookingDSDesigner165: TStringField;
|
|
|
d_onlineBookingDSDesigner166: TStringField;
|
|
|
d_onlineBookingDSDesigner167: TStringField;
|
|
|
d_onlineBookingDSDesigner168: TBooleanField;
|
|
|
d_onlineBookingDSDesigner169: TDateTimeField;
|
|
|
d_onlineBookingDSDesigner170: TStringField;
|
|
|
d_onlineBookingDSDesigner171: TStringField;
|
|
|
d_onlineBookingDSDesigner172: TStringField;
|
|
|
d_onlineBookingDSDesigner173: TStringField;
|
|
|
d_onlineBookingDSDesigner174: TBooleanField;
|
|
|
d_onlineBookingDSDesigner175: TStringField;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
dxDBGrid1Column18: TdxDBGridColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMemoColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure t_op_seaePostError(DataSet: TDataSet; E: EDatabaseError;
|
|
|
var Action: TDataAction);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure t_op_ctnAfterPost(DataSet: TDataSet);
|
|
|
procedure dxDBGrid1Column29CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure d_onlineBookingDSDesignerGetText(Sender: TField;
|
|
|
var Text: String; DisplayText: Boolean);
|
|
|
procedure d_onlineBookingDSDesigner1GetText(Sender: TField;
|
|
|
var Text: String; DisplayText: Boolean);
|
|
|
procedure d_onlineBookingDSDesigner210GetText(Sender: TField;
|
|
|
var Text: String; DisplayText: Boolean);
|
|
|
procedure d_onlineBookingDSDesigner310GetText(Sender: TField;
|
|
|
var Text: String; DisplayText: Boolean);
|
|
|
private
|
|
|
function GetCntr(Code:String):String;
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_weborder: Tfrm_op_seae_weborder;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_sys_progress,
|
|
|
u_op_seae_weborder_add, u_op_add_code, u_op_ctn;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
function Tfrm_op_seae_weborder.GetCntr(Code:String):String;
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ from t_code_ctn where <20><><EFBFBD><EFBFBD>='''+Code+'''');
|
|
|
Open;
|
|
|
Result:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
freeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
frm_op_seae_weborder.Hide;
|
|
|
frm_op_seae_weborder.ManualFloat(frm_op_seae_weborder.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae_weborder');
|
|
|
action:=cafree;
|
|
|
frm_op_seae_weborder:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/11);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>϶<EFBFBD><CFB6><EFBFBD>',2,t_op_seae1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
d_onlineBooking.Edit;
|
|
|
d_onlineBooking['<27><><EFBFBD><EFBFBD>״̬']:=3;
|
|
|
d_onlineBooking.Post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=d_onlineBooking.GetBookmark;
|
|
|
d_onlineBooking.Refresh;
|
|
|
d_onlineBooking.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.open;
|
|
|
d_onlineBooking.Close;
|
|
|
d_onlineBooking.open;
|
|
|
|
|
|
t_op_seae_danwei.open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
{
|
|
|
if frm_data_share.t_code_ctn.locate('<27><><EFBFBD><EFBFBD>',trim(frm_data_share.t_code_ctn_de.fieldbyname('<27><><EFBFBD><EFBFBD>1').asstring),[]) then
|
|
|
dxdbgrid1.ColumnByFieldName('<27><><EFBFBD><EFBFBD>1').Caption:=
|
|
|
trim(frm_data_share.t_code_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring);
|
|
|
}
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.t_op_seaePostError(DataSet: TDataSet;
|
|
|
E: EDatabaseError; var Action: TDataAction);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
if pos('SOME VALUES MAY HAVE BEEN CHANGED',UpperCase(E.Message))<>0 then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ģ<DEB8><C4A3><EFBFBD>ǰ<EFBFBD>IJ<DEB8><C4B2>ܱ<EFBFBD><DCB1><EFBFBD>'+#13#10+'<27><>ˢ<EFBFBD><CBA2><EFBFBD><EFBFBD><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae=nil then
|
|
|
exit;
|
|
|
if d_onlineBooking=nil then
|
|
|
exit;
|
|
|
if (d_onlineBooking['<27><><EFBFBD><EFBFBD>״̬']=1) or (d_onlineBooking['<27><><EFBFBD><EFBFBD>״̬']=3) then begin
|
|
|
MessageDlg('<27><>ǰ״̬<D7B4>²<EFBFBD><C2B2>ܽ<EFBFBD><DCBD>ܶ<EFBFBD><DCB6>գ<EFBFBD>', mtConfirmation, [mbYes],0);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
try
|
|
|
frm_op_seae_weborder_add:=tfrm_op_seae_weborder_add.Create (self);
|
|
|
frm_op_seae_weborder_add.data1.Enabled:=false;
|
|
|
frm_op_seae_weborder_add.data1.DataSet:=t_op_seae;
|
|
|
frm_op_seae_weborder_add.data1.Enabled:=true;
|
|
|
frm_op_seae_weborder_add.data2.Enabled:=false;
|
|
|
frm_op_seae_weborder_add.data2.DataSet:=d_onlineBooking;
|
|
|
frm_op_seae_weborder_add.data2.Enabled:=true;
|
|
|
frm_op_seae_weborder_add.data3.Enabled:=false;
|
|
|
frm_op_seae_weborder_add.data3.DataSet:=t_op_ctn;
|
|
|
frm_op_seae_weborder_add.data3.Enabled:=true;
|
|
|
frm_op_seae_weborder_add.ShowModal;
|
|
|
finally
|
|
|
frm_op_seae_weborder_add.Free;
|
|
|
frm_op_seae_weborder_add:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
// query_seae(11,'0001');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,202);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton8Click(Sender: TObject);
|
|
|
VAR
|
|
|
str:widestring;
|
|
|
begin
|
|
|
str:='where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''export'' and <20><><EFBFBD>˿<EFBFBD><CBBF><EFBFBD>=''sea''';
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
str:=str+' and ί<>е<EFBFBD>λ='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
|
|
|
if wwDBDateTimePicker9.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
if wwDBDateTimePicker12.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><='+''''+wwDBDateTimePicker12.text+'''';
|
|
|
|
|
|
d_onlineBooking.close;
|
|
|
d_onlineBooking.sql.clear;
|
|
|
d_onlineBooking.sql.add('select * from d_onlineBooking '+str+' order by ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
d_onlineBooking.open;
|
|
|
// ShowMessage(d_onlineBooking.sql.Text);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
RxDBLookupCombo2.ClearValue;
|
|
|
wwDBDateTimePicker9.text:='';
|
|
|
wwDBDateTimePicker12.text:='';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.RxDBLookupCombo20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
// key_wwDBLookupCombo(Key,wwDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.t_op_ctnAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
update_ctn(t_op_ctn);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.dxDBGrid1Column29CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid1Column29.Index]='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>' then
|
|
|
AColor:=clgreen
|
|
|
else if ANode.Strings[dxDBGrid1Column29.Index]='<27>ܾ<EFBFBD><DCBE><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
AColor:=clred
|
|
|
else AColor:=clWhite;
|
|
|
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesignerGetText(
|
|
|
Sender: TField; var Text: String; DisplayText: Boolean);
|
|
|
begin
|
|
|
|
|
|
if Sender.Value='0' then
|
|
|
Text:='<27>ȴ<EFBFBD><C8B4><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
else if Sender.Value='3' then
|
|
|
Text:='<27>ܾ<EFBFBD><DCBE><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
else Text:='<27><><EFBFBD>ܶ<EFBFBD><DCB6><EFBFBD>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner1GetText(
|
|
|
Sender: TField; var Text: String; DisplayText: Boolean);
|
|
|
|
|
|
begin
|
|
|
if sender.DataSet['<27><><EFBFBD><EFBFBD>1']<>0 then
|
|
|
Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>1').asstring;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner210GetText(
|
|
|
Sender: TField; var Text: String; DisplayText: Boolean);
|
|
|
begin
|
|
|
if sender.DataSet['<27><><EFBFBD><EFBFBD>2']<>0 then
|
|
|
Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>2').asstring;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_weborder.d_onlineBookingDSDesigner310GetText(
|
|
|
Sender: TField; var Text: String; DisplayText: Boolean);
|
|
|
begin
|
|
|
if sender.DataSet['<27><><EFBFBD><EFBFBD>3']<>0 then
|
|
|
Text:=GetCntr(Sender.AsString)+'X'+sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>3').asstring;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|