sys910_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Sys910_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Menus, ActnList, ComCtrls, ToolWin, ExtCtrls,
  dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, Mask, DBCtrls;

type
  TSys910_01Form = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbUpdate: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    tlbSearch: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActExit: TAction;
    qrySys910A: TADOQuery;
    dsSys910A: TDataSource;
    qrySys910AS910A_001: TAutoIncField;
    qrySys910AS910A_002: TStringField;
    qrySys910AS910A_003: TStringField;
    qrySys910AS910A_004: TStringField;
    qrySys910AS910A_005: TStringField;
    qrySys910AS910A_006: TStringField;
    qrySys910AS910A_007: TStringField;
    ScrollBox1: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1S910A_002: TdxDBGridMaskColumn;
    dxDBGrid1S910A_003: TdxDBGridMaskColumn;
    dxDBGrid1S910A_004: TdxDBGridMaskColumn;
    qrySys910AS910A_008: TMemoField;
    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 ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure qrySys910AAfterScroll(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys910_01Form: TSys910_01Form;
  AAlterNo:Integer;

implementation

uses CommFun, SYSDATA, Sys910_02;

{$R *.dfm}

procedure TSys910_01Form.SetInterface;
begin
  Font.Name:=AFontName;
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('SYS91001001');  //预警条件设置
  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');  //删除
  ActRefresh.Caption:=GetDBString('COM00005010');  //刷新
  ActLocate.Caption:=GetDBString('COM00005011');  //查找
  ActSearch.Caption:=GetDBString('COM00005012');  //查询
  ActExit.Caption:=GetDBString('COM00005015');  //退出
end;

procedure TSys910_01Form.FormCreate(Sender: TObject);
begin
  qrySys910A.Open;
  SetInterface;
end;

procedure TSys910_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qrySys910A.Close;
end;

procedure TSys910_01Form.ActFirstExecute(Sender: TObject);
begin
//最前
  if qrySys910A.IsEmpty then Exit;
  qrySys910A.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure TSys910_01Form.ActPriorExecute(Sender: TObject);
begin
//上移
  if qrySys910A.IsEmpty then Exit;
  qrySys910A.Prior;
  ActNext.Enabled:=not qrySys910A.Eof;
  ActLast.Enabled:=not qrySys910A.Eof;
  ActFirst.Enabled:=not qrySys910A.Bof;
  ActPrior.Enabled:=not qrySys910A.Bof;
end;

procedure TSys910_01Form.ActNextExecute(Sender: TObject);
begin
//下移
  if qrySys910A.IsEmpty then Exit;
  qrySys910A.Next;
  ActNext.Enabled:=not qrySys910A.Eof;
  ActLast.Enabled:=not qrySys910A.Eof;
  ActFirst.Enabled:=not qrySys910A.Bof;
  ActPrior.Enabled:=not qrySys910A.Bof;
end;

procedure TSys910_01Form.ActLastExecute(Sender: TObject);
begin
//最后
  if qrySys910A.IsEmpty then Exit;
  qrySys910A.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
end;

procedure TSys910_01Form.ActInsertExecute(Sender: TObject);
begin
//新增
  AAlterNo:=0;
  Sys910_02Form:=TSys910_02Form.Create(Application);
  Sys910_02Form.OpenData(AAlterNo);
  Sys910_02Form.ShowModal;
end;

procedure TSys910_01Form.ActUpdateExecute(Sender: TObject);
begin
//修改
  if qrySys910A.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  AAlterNo:=qrySys910AS910A_001.Value;
  Sys910_02Form:=TSys910_02Form.Create(Application);
  Sys910_02Form.OpenData(AAlterNo);
  Sys910_02Form.ShowModal;
end;

procedure TSys910_01Form.ActDeleteExecute(Sender: TObject);
var
  AlterNo:Integer;
begin
//删除
  if qrySys910A.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;

  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    try
      AlterNo:=qrySys910AS910A_001.Value;
      SYSDM.ADOC.BeginTrans;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from SYS910B where S910B_001='+IntToStr(AlterNo));
      SYSDM.qryQuery.ExecSQL;
      qrySys910A.Delete;
      SYSDM.ADOC.CommitTrans;
    except
      SYSDM.ADOC.RollbackTrans;
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  end;
end;

procedure TSys910_01Form.ActRefreshExecute(Sender: TObject);
begin
//刷新
  qrySys910A.Close;
  qrySys910A.Open;
end;

procedure TSys910_01Form.ActLocateExecute(Sender: TObject);
begin
//查找
  if qrySys910A.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsSys910A);
end;

procedure TSys910_01Form.ActSearchExecute(Sender: TObject);
begin
//查询
  FilterDialog(dsSys910A);
end;

procedure TSys910_01Form.ActExitExecute(Sender: TObject);
begin
//退出
  Close;
end;

procedure TSys910_01Form.qrySys910AAfterScroll(DataSet: TDataSet);
begin
  ActNext.Enabled:=not qrySys910A.Eof;
  ActLast.Enabled:=not qrySys910A.Eof;
  ActFirst.Enabled:=not qrySys910A.Bof;
  ActPrior.Enabled:=not qrySys910A.Bof;
end;

procedure TSys910_01Form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F1 then
    HtmlHelp(Application.Handle, AHelpFile+'::/'+AProgramID+'.htm', $0000, nil);
end;

initialization
  RegisterClass(TSys910_01Form);

finalization
  UnRegisterClass(TSys910_01Form);

end.