?? bas200_02.pas.svn-base

?? 這是一個(gè)功能齊全的,代碼完整的ERP企業(yè)信息管理系統(tǒng),現(xiàn)在上傳和大家分享
?? SVN-BASE
字號(hào):
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}

//設(shè)置按鈕狀態(tài)
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');  //查詢(xún)
  ActPrint.Caption:=GetDBString('COM00005013');  //打印
  ActExport.Caption:=GetDBString('COM00005014');  //導(dǎo)出數(shù)據(jù)
  ActExit.Caption:=GetDBString('COM00005015');  //退出
  TabSheet1.Caption:=GetDBString('COM00005016');  //瀏覽數(shù)據(jù)
  TabSheet2.Caption:=GetDBString('COM00005017');  //明細(xì)資料

  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);  //修改當(dāng)前記錄
  ActDelete.Hint:=GetDBString('COM00005007',2);  //刪除當(dāng)前記錄
  ActSave.Hint:=GetDBString('COM00005008',2);  //保存編輯的記錄
  ActCancel.Hint:=GetDBString('COM00005009',2);  //取消編輯的記錄
  ActRefresh.Hint:=GetDBString('COM00005010',2);  //取得最新的數(shù)據(jù)
  ActLocate.Hint:=GetDBString('COM00005011',2);  //快速定位記錄
  ActSearch.Hint:=GetDBString('COM00005012',2);  //按條件查詢(xún)數(shù)據(jù)
  ActPrint.Hint:=GetDBString('COM00005013',2);  //將數(shù)據(jù)打印出來(lái)
  ActExport.Hint:=GetDBString('COM00005014',2);  //導(dǎo)出數(shù)據(jù)到文件中
  ActExit.Hint:=GetDBString('COM00005015',2);  //關(guān)閉當(dāng)前窗口
  TabSheet1.Hint:=GetDBString('COM00005016',2);  //以表格的形式瀏覽所有數(shù)據(jù)
  TabSheet2.Hint:=GetDBString('COM00005017',2);  //查看當(dāng)前記錄的明細(xì)資料
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;
  //設(shè)置界面信息
  SetInterface;

  try
    ADOQuery1.Open;
    ADOQuery2.Open;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Close;
  end;
  PageControl1.ActivePageIndex:=0;
  SetButtonState(False);
  LoadFromReg(Self); //這行一定放在打開(kāi)數(shù)據(jù)集后面，否則無(wú)效
end;

procedure TBas200_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if ActSave.Enabled then
  begin
    if ShowDialog('UMS10000007')=IDNO then  //數(shù)據(jù)尚未保存，現(xiàn)在保存嗎？
      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');  //表記錄為空，操作無(wú)效
    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');  //表記錄為空，操作無(wú)效
    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');  //表記錄為空，操作無(wú)效
    Abort;
  end;

  if ShowDialog('UMS10000008')=IDNO then Abort;  //確定要?jiǎng)h除此記錄嗎?
  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');  //表記錄為空，操作無(wú)效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    LocateDialog(DataSource1);
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TBas200_02Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查詢(xún)
  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;
//導(dǎo)出數(shù)據(jù)
  if ADOQuery2.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表記錄為空，操作無(wú)效
    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.
?? 文件大小 5005 K
?? 上傳用戶 struggle10000
?? 所屬分類(lèi) 企業(yè)管理
??? 相關(guān)標(biāo)簽

#ERP #代碼 #企業(yè)信息 #管理系統(tǒng)
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? bas200_02.pas.svn-base

?? 快捷鍵說(shuō)明
