【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了Base.pas相关资料,希望对各位网友有所帮助!
unit Base;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Buttons, ImgList,ADODB,DB,DateUtils,ComCtrls;
type
//TDataState = (dsBrowers,dsInserts,dsEdits,dsAuditing,dsNotAuditing,dsSubmit);
//TDataStates = set of TDataState;
TBaseForm = class(TForm)
Image2: TImage;
Image3: TImage;
Panel1: TPanel;
procedure Image5Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1DblClick(Sender: TObject);
procedure Image8Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
protected
FADOSQL:TADOQuery;
procedure ExecSQL(SQL:string);virtual;
procedure SelSQL(SQL:string);overload;virtual;
procedure SelSQL(var DataSet:TADODataSet;SQL:string);overload;virtual;
function CreateOrderID:string;
public
end;
var
BaseForm: TBaseForm;
implementation
uses DataModu, Main;
{$R *.dfm}
procedure TBaseForm.Image5Click(Sender: TObject);
begin
Close;
end;
procedure TBaseForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
self.perform(WM_SYSCOMMAND,$F012,0);
end;
procedure TBaseForm.Image1DblClick(Sender: TObject);
begin
if Self.WindowState = wsMaximized then
Self.WindowState := wsNormal
else
Self.WindowState := wsMaximized;
end;
procedure TBaseForm.Image8Click(Sender: TObject);
begin
//Self.WindowState := wsMinimized;
SendMessage(Handle,$0112,$F020,0);
end;
procedure TBaseForm.Image7Click(Sender: TObject);
begin
if Self.WindowState = wsMaximized then
Self.WindowState := wsNormal
else
Self.WindowState := wsMaximized;
end;
procedure TBaseForm.ExecSQL(SQL: string);
begin
end;
procedure TBaseForm.SelSQL(SQL: string);
begin
end;
procedure TBaseForm.SelSQL(var DataSet: TADODataSet; SQL: string);
begin
end;
function TBaseForm.CreateOrderID: string;
var
ADOProc: TADOStoredProc;
Param: TParameter;
begin
ADOProc := TADOStoredProc.Create(nil);
try
Result := '';
ADOProc.Connection := DataModuForm.ADOCon;
ADOProc.ProcedureName := 'MR_Proc_GetNo';
Param := ADOProc.Parameters.AddParameter;
Param.Name := '@ObjectName';
ADOProc.Active := False;
ADOProc.Parameters.ParamByName('@ObjectName').Value := Self.ClassName;
ADOProc.Active := True;
Result := FormatDateTime('yyyymmdd',
ADOProc.FieldByName('CDate').AsDateTime)
+ Format('%.3d',
[ADOProc.FieldByName('No').AsInteger + 1]);
finally
ADOProc.Free;
end;
end;
{function TBaseForm.IsShowForm: Boolean;
begin
if (LoginID = '1') or (LoginName = 'mrsoft') then
begin
Result := True;
Exit;
end;
ProcPopedom.Active := False;
ProcPopedom.Parameters.ParamByName('@UserID').Value :=
LoginID;
ProcPopedom.Parameters.ParamByName('@Kind').Value := 1;
ProcPopedom.Parameters.ParamByName('@ObjectForm').Value :=
Self.ClassName;
ProcPopedom.Active := True;
if ProcPopedom.RecordCount = 0 then
begin
ShowMessage('当前用户没有使用该窗体的权限!');
Result := False;
end
else
begin
Result := True;
end;
end; }
{function TBaseForm.IsShowBtn(Sender:TObject): Boolean;
begin
InsertTabBtn(Sender);
ProcPopedom.Active := False;
ProcPopedom.Parameters.ParamByName('@UserID').Value :=
LoginID;
ProcPopedom.Parameters.ParamByName('@Kind').Value := 4;
ProcPopedom.Parameters.ParamByName('@ObjectName').Value :=
(Sender as TComponent).Name;
ProcPopedom.Parameters.ParamByName('@ObjectForm').Value :=
Self.ClassName;
ProcPopedom.Active := True;
if LoginID='1' then
begin
Result := True;
exit;
end;
if ProcPopedom.RecordCount = 0 then
begin
ShowMessage('当前用户没有使用该按扭的权限!');
Result := False;
end
else
begin
Result := True;
end;
end; }
{procedure TBaseForm.InsertTabForm;
begin
ProcInsertObject.Active := False;
ProcInsertObject.Parameters.ParamByName('@ObjectName').Value :=
Self.ClassName;
ProcInsertObject.Parameters.ParamByName('@Kind').Value := 1;
ProcInsertObject.Parameters.ParamByName('@Caption').Value :=
Self.Caption;
ProcInsertObject.ExecProc;
end; }
procedure TBaseForm.FormCreate(Sender: TObject);
begin
//InsertTabForm;
end;
{procedure TBaseForm.InsertTabBtn(Sender:TObject);
var
BtnCaption:string;
begin
if Sender is TToolButton then
BtnCaption := (Sender as TToolButton).Caption;
if Sender is TcxButton then
BtnCaption := (Sender as TcxButton).Caption;
ProcInsertObject.Active := False;
ProcInsertObject.Parameters.ParamByName('@ObjectName').Value :=
(Sender as TControl).Name;
ProcInsertObject.Parameters.ParamByName('@Kind').Value := 4;
ProcInsertObject.Parameters.ParamByName('@Caption').Value :=
BtnCaption;
ProcInsertObject.ExecProc;
end; }
{procedure TBaseForm.SeekFlowSign(BillNo:string);
begin
with AdpSeekFlowSign do
begin
Active := False;
Parameters.ParamByName('@BillNo').Value :=BillNo;
Active := True;
end;
end; }
end.
上一篇:
BaofeiCX.pas
下一篇:
法律专业开题报告范文