📄 bas200_02.pas.svn-base
字号:
unit Bas200_02;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Bas100_01, ImgList, ComCtrls, ToolWin, Menus, Db, ExtCtrls, Grids,
ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
ActnList, wwfltdlg, wwDialog, Wwlocate, Wwintl, StdCtrls;
type
TBas200_02Form = class(TBas100_01Form)
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbInsert: TToolButton;
tlbUpdate: TToolButton;
tlbDelete: TToolButton;
ToolButton2: TToolButton;
tlbSave: TToolButton;
tlbCancel: TToolButton;
ToolButton3: TToolButton;
tlbRefresh: TToolButton;
tlbLocate: TToolButton;
tlbSearch: TToolButton;
tlbPrint: TToolButton;
ToolButton6: TToolButton;
tlbExit: TToolButton;
Panel1: TPanel;
Image1: TImage;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ScrollBox1: TScrollBox;
pmPrint: TPopupMenu;
mmiPrint: TMenuItem;
mmiExport: TMenuItem;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActInsert: TAction;
ActUpdate: TAction;
ActDelete: TAction;
ActSave: TAction;
ActCancel: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExport: TAction;
ActExit: TAction;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
ScrollBox2: TScrollBox;
dxDBGrid1: TdxDBGrid;
pmGrid: TPopupMenu;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(Sender: TObject);
procedure ActInsertExecute(Sender: TObject);
procedure ActUpdateExecute(Sender: TObject);
procedure ActDeleteExecute(Sender: TObject);
procedure ActSaveExecute(Sender: TObject);
procedure ActCancelExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActSearchExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExportExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure ADOQuery1AfterScroll(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
private
procedure SetButtonState(AInsUpd:Boolean);
procedure MenuItemClick(Sender: TObject);
procedure CreatePopmeun(AGrid:TdxDBGrid);
{ Private declarations }
public
{ Public declarations }
protected
ARecordCount:Integer;
procedure SetInterface; virtual;
procedure InsertEvent; virtual;
procedure UpdateEvent; virtual;
procedure DeleteEvent; virtual;
procedure BrowseEvent; virtual;
procedure ReportGetValue(const ParName: String; var ParValue: Variant); virtual;
end;
var
Bas200_02Form: TBas200_02Form;
implementation
uses SYSDATA, CommFun, HwExport;
{$R *.DFM}
//设置按钮状态
procedure TBas200_02Form.SetButtonState(AInsUpd:Boolean);
begin
ActFirst.Enabled:=not AInsUpd;
ActPrior.Enabled:=not AInsUpd;
ActNext.Enabled:=not AInsUpd;
ActLast.Enabled:=not AInsUpd;
ActInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
ActUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
ActDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
ActSave.Enabled:=AInsUpd;
ActCancel.Enabled:=AInsUpd;
ActRefresh.Enabled:=not AInsUpd;
ActLocate.Enabled:=not AInsUpd;
ActSearch.Enabled:=not AInsUpd;
ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
ActExit.Enabled:=True;
ScrollBox1.Enabled:=AInsUpd;
if AInsUpd then PageControl1.ActivePageIndex:=1;
end;
procedure TBas200_02Form.SetInterface;
begin
inherited;
Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
ActFirst.Caption:=GetDBString('COM00005001'); //最前
ActPrior.Caption:=GetDBString('COM00005002'); //上移
ActNext.Caption:=GetDBString('COM00005003'); //下移
ActLast.Caption:=GetDBString('COM00005004'); //最后
ActInsert.Caption:=GetDBString('COM00005005'); //新增
ActUpdate.Caption:=GetDBString('COM00005006'); //修改
ActDelete.Caption:=GetDBString('COM00005007'); //删除
ActSave.Caption:=GetDBString('COM00005008'); //保存
ActCancel.Caption:=GetDBString('COM00005009'); //取消
ActRefresh.Caption:=GetDBString('COM00005010'); //刷新
ActLocate.Caption:=GetDBString('COM00005011'); //查找
ActSearch.Caption:=GetDBString('COM00005012'); //查询
ActPrint.Caption:=GetDBString('COM00005013'); //打印
ActExport.Caption:=GetDBString('COM00005014'); //导出数据
ActExit.Caption:=GetDBString('COM00005015'); //退出
TabSheet1.Caption:=GetDBString('COM00005016'); //浏览数据
TabSheet2.Caption:=GetDBString('COM00005017'); //明细资料
ActFirst.Hint:=GetDBString('COM00005001',2); //移到第一条记录
ActPrior.Hint:=GetDBString('COM00005002',2); //移到上一条记录
ActNext.Hint:=GetDBString('COM00005003',2); //移到下一条记录
ActLast.Hint:=GetDBString('COM00005004',2); //移到最后一条记录
ActInsert.Hint:=GetDBString('COM00005005',2); //新增一条记录
ActUpdate.Hint:=GetDBString('COM00005006',2); //修改当前记录
ActDelete.Hint:=GetDBString('COM00005007',2); //删除当前记录
ActSave.Hint:=GetDBString('COM00005008',2); //保存编辑的记录
ActCancel.Hint:=GetDBString('COM00005009',2); //取消编辑的记录
ActRefresh.Hint:=GetDBString('COM00005010',2); //取得最新的数据
ActLocate.Hint:=GetDBString('COM00005011',2); //快速定位记录
ActSearch.Hint:=GetDBString('COM00005012',2); //按条件查询数据
ActPrint.Hint:=GetDBString('COM00005013',2); //将数据打印出来
ActExport.Hint:=GetDBString('COM00005014',2); //导出数据到文件中
ActExit.Hint:=GetDBString('COM00005015',2); //关闭当前窗口
TabSheet1.Hint:=GetDBString('COM00005016',2); //以表格的形式浏览所有数据
TabSheet2.Hint:=GetDBString('COM00005017',2); //查看当前记录的明细资料
end;
procedure TBas200_02Form.MenuItemClick(Sender: TObject);
begin
TMenuItem(Sender).Checked:=not TMenuItem(Sender).Checked;
dxDBGrid1.ColumnByFieldName(TMenuItem(Sender).Name).Visible:=TMenuItem(Sender).Checked;
end;
procedure TBas200_02Form.CreatePopmeun(AGrid:TdxDBGrid);
var
ADataSet:TDataSet;
I:Integer;
AMenuItem:TMenuItem;
begin
if AGrid.DataSource=nil then Exit;
if AGrid.DataSource.DataSet=nil then Exit;
if AGrid.PopupMenu=nil then Exit;
ADataSet:=AGrid.DataSource.DataSet;
for I:=0 to ADataSet.FieldCount-1 do
begin
if ADataSet.Fields[I].Visible then
begin
AMenuItem:=TMenuItem.Create(nil);
AMenuItem.Name:=ADataSet.Fields[I].FieldName;
AMenuItem.Caption:=ADataSet.Fields[I].DisplayLabel;
AMenuItem.Checked:=AGrid.ColumnByFieldName(ADataSet.Fields[I].FieldName).Visible;
AMenuItem.OnClick:=MenuItemClick;
AGrid.PopupMenu.Items.Add(AMenuItem);
end;
end;
end;
procedure TBas200_02Form.FormCreate(Sender: TObject);
begin
inherited;
//设置界面信息
SetInterface;
try
ADOQuery1.Open;
ADOQuery2.Open;
except
ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
Close;
end;
PageControl1.ActivePageIndex:=0;
SetButtonState(False);
LoadFromReg(Self); //这行一定放在打开数据集后面，否则无效
end;
procedure TBas200_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if ActSave.Enabled then
begin
if ShowDialog('UMS10000007')=IDNO then //数据尚未保存，现在保存吗？
ActCancel.Execute
else
ActSave.Execute;
end;
ADOQuery1.Close;
ADOQuery2.Close;
Action:=caFree;
inherited;
end;
procedure TBas200_02Form.ActFirstExecute(Sender: TObject);
begin
inherited;
//最前
if ADOQuery1.IsEmpty then Exit;
ADOQuery1.First;
ActFirst.Enabled:=False;
ActPrior.Enabled:=False;
ActNext.Enabled:=True;
ActLast.Enabled:=True;
end;
procedure TBas200_02Form.ActPriorExecute(Sender: TObject);
begin
inherited;
//上移
if ADOQuery1.IsEmpty then Exit;
ADOQuery1.Prior;
ActNext.Enabled:=not ADOQuery1.Eof;
ActLast.Enabled:=not ADOQuery1.Eof;
ActFirst.Enabled:=not ADOQuery1.Bof;
ActPrior.Enabled:=not ADOQuery1.Bof;
end;
procedure TBas200_02Form.ActNextExecute(Sender: TObject);
begin
inherited;
//下移
if ADOQuery1.IsEmpty then Exit;
ADOQuery1.Next;
ActNext.Enabled:=not ADOQuery1.Eof;
ActLast.Enabled:=not ADOQuery1.Eof;
ActFirst.Enabled:=not ADOQuery1.Bof;
ActPrior.Enabled:=not ADOQuery1.Bof;
end;
procedure TBas200_02Form.ActLastExecute(Sender: TObject);
begin
inherited;
//最后
if ADOQuery1.IsEmpty then Exit;
ADOQuery1.Last;
ActNext.Enabled:=False;
ActLast.Enabled:=False;
ActFirst.Enabled:=True;
ActPrior.Enabled:=True;
end;
procedure TBas200_02Form.ActInsertExecute(Sender: TObject);
begin
inherited;
//新增
if ADOQuery1.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
try
Screen.Cursor:=crHourGlass;
ADOQuery2.Insert;
SetButtonState(True);
InsertEvent;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActUpdateExecute(Sender: TObject);
begin
inherited;
//修改
if ADOQuery2.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
try
Screen.Cursor:=crHourGlass;
ADOQuery2.Edit;
SetButtonState(True);
DeleteEvent;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActDeleteExecute(Sender: TObject);
begin
inherited;
//删除
if ADOQuery2.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if ShowDialog('UMS10000008')=IDNO then Abort; //确定要删除此记录吗?
try
Screen.Cursor:=crHourGlass;
ADOQuery2.Delete;
DeleteEvent;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActSaveExecute(Sender: TObject);
begin
inherited;
//保存
try
Screen.Cursor:=crHourGlass;
try
ADOQuery2.Post;
except
ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
Abort;
end;
ADOQuery2.Refresh;
SetButtonState(False);
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActCancelExecute(Sender: TObject);
begin
inherited;
//取消
try
Screen.Cursor:=crHourGlass;
ADOQuery2.CancelUpdates;
SetButtonState(False);
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActRefreshExecute(Sender: TObject);
var
ABookmark:TBookmark;
begin
inherited;
//刷新
ABookmark:=ADOQuery1.GetBookmark;
try
Screen.Cursor:=crHourGlass;
ADOQuery1.DisableControls;
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery2.Close;
ADOQuery2.Open;
ARecordCount:=GetDataSetCount(ADOQuery1);
if ADOQuery1.BookmarkValid(ABookmark) then ADOQuery1.GotoBookmark(ABookmark);
finally
ADOQuery1.FreeBookmark(ABookmark);
ADOQuery1.EnableControls;
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActLocateExecute(Sender: TObject);
begin
inherited;
//查找
if ADOQuery1.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
try
Screen.Cursor:=crHourGlass;
LocateDialog(DataSource1);
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActSearchExecute(Sender: TObject);
begin
inherited;
//查询
try
Screen.Cursor:=crHourGlass;
FilterDialog(DataSource1);
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActPrintExecute(Sender: TObject);
begin
inherited;
//打印
try
Screen.Cursor:=crHourGlass;
SelectReport(ADOQuery2,AProgramID,AReportName,ReportGetValue);
ActRefresh.Execute;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActExportExecute(Sender: TObject);
begin
inherited;
//导出数据
if ADOQuery2.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
try
Screen.Cursor:=crHourGlass;
HwExportForm:=THwExportForm.Create(Application);
HwExportForm.GetDataFields(AProgramID,ADOQuery2);
HwExportForm.ShowModal;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TBas200_02Form.ActExitExecute(Sender: TObject);
begin
inherited;
//退出
Close;
end;
procedure TBas200_02Form.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
inherited;
if ADOQuery2.State in [dsInsert, dsEdit] then AllowChange:=False;
end;
procedure TBas200_02Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
inherited;
if not Active then Exit;
if ActSave.Enabled then Exit;
ActNext.Enabled:=not ADOQuery1.Eof;
ActLast.Enabled:=not ADOQuery1.Eof;
ActFirst.Enabled:=not ADOQuery1.Bof;
ActPrior.Enabled:=not ADOQuery1.Bof;
end;
procedure TBas200_02Form.FormShow(Sender: TObject);
begin
inherited;
CreatePopmeun(dxDBGrid1);
end;
procedure TBas200_02Form.BrowseEvent;
begin
end;
procedure TBas200_02Form.DeleteEvent;
begin
end;
procedure TBas200_02Form.InsertEvent;
begin
end;
procedure TBas200_02Form.ReportGetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName='USENM' then ParValue:=AUserName
else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006') //列印日期
else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007') //列印人員
else if ParName='REPNM' then ParValue:=AReportTitle
else if ADOQuery1.FindField(ParName)<>nil then ParValue:=ADOQuery1.FieldByName(ParName).DisplayLabel
else if ADOQuery2.FindField(ParName)<>nil then ParValue:=ADOQuery2.FieldByName(ParName).DisplayLabel;
end;
procedure TBas200_02Form.UpdateEvent;
begin
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -