cwa150_04.pas.svn-base

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

unit Cwa150_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, DBCtrls, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid;

type
  TCwa150_04Form = class(TForm)
    bbtnInsert: TBitBtn;
    bbtnUpdate: TBitBtn;
    bbtnDelete: TBitBtn;
    bbtnExit: TBitBtn;
    qrySys990: TADOQuery;
    dsSys990: TDataSource;
    ScrollBox1: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    qrySys990S990_001: TAutoIncField;
    qrySys990S990_002: TSmallintField;
    qrySys990S990_003: TStringField;
    qrySys990S990_004: TStringField;
    qrySys990S990_005: TMemoField;
    qrySys990S990_006: TMemoField;
    dxDBGrid1S990_003: TdxDBGridMaskColumn;
    dxDBGrid1S990_004: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnInsertClick(Sender: TObject);
    procedure bbtnUpdateClick(Sender: TObject);
    procedure bbtnDeleteClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cwa150_04Form: TCwa150_04Form;

implementation

uses CommFun, SYSDATA, HwFormula, Cwa150_05;

{$R *.dfm}

procedure TCwa150_04Form.SetInterface;
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('CWA15004001');  //函数
  qrySys990S990_003.DisplayLabel:=GetDBString('CWA15004002');  //编号
  qrySys990S990_004.DisplayLabel:=GetDBString('CWA15004003');  //名称
  bbtnInsert.Caption:=GetDBString('CWA15004004');  //新增(&I)
  bbtnUpdate.Caption:=GetDBString('CWA15004005');  //修改(&U)
  bbtnDelete.Caption:=GetDBString('CWA15004006');  //删除(&D)
  bbtnExit.Caption:=GetDBString('CWA15004007');  //退出(&X)
end;

procedure TCwa150_04Form.FormCreate(Sender: TObject);
begin
  qrySys990.Close;
  qrySys990.SQL.Clear;
  qrySys990.SQL.Add('select * from SYS990 where S990_002=0 or S990_002=1');
  qrySys990.Open;
  SetInterface;
end;

procedure TCwa150_04Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qrySys990.Close;
end;

procedure TCwa150_04Form.bbtnInsertClick(Sender: TObject);
begin
//新增(&I)
  Cwa150_05Form:=TCwa150_05Form.Create(Application);
  if Cwa150_05Form.ShowModal=1 then
  begin
    HwFormulaForm:=THwFormulaForm.Create(Application);
    HwFormulaForm.AMode:='ADD';
    HwFormulaForm.AItemNm:=Cwa150_05Form.edtName.Text;
    HwFormulaForm.AType:='CWA';
    HwFormulaForm.ShowModal;
  end;
end;

procedure TCwa150_04Form.bbtnUpdateClick(Sender: TObject);
begin
//修改(&U)
  if qrySys990.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  HwFormulaForm:=THwFormulaForm.Create(Application);
  HwFormulaForm.AMode:='UPD';
  HwFormulaForm.AItemNm:=qrySys990S990_004.AsString;
  HwFormulaForm.AType:='CWA';
  HwFormulaForm.ShowModal;
end;

procedure TCwa150_04Form.bbtnDeleteClick(Sender: TObject);
begin
//删除(&D)
  if qrySys990.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;

  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qrySys990.Delete;
  end;
end;

procedure TCwa150_04Form.bbtnExitClick(Sender: TObject);
begin
//退出(&X)
  Close;
end;

end.