bmda1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit bmda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, Db, ADODB, ExtCtrls, StdCtrls,
  Buttons;

type
  Tbmda = class(TForm)
    dxDBGrid1: TdxDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1bmname: TStringField;
    dxDBGrid1bmname: TdxDBGridMaskColumn;
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bmda: Tbmda;

implementation

uses MainForm1, editbm1;

{$R *.DFM}

procedure Tbmda.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure Tbmda.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tbmda.BitBtn4Click(Sender: TObject);
begin
  Application.CreateForm(Teditbm, editbm);
  if editbm.ShowModal = 1 then
  begin
    if editbm.dxEdit1.Text = '' then exit;
    try
      ADOTable1.InsertRecord([editbm.dxEdit1.Text]);
    except
      Application.MessageBox('部门名称有重复,不能保存.', '提示', MB_OK + MB_ICONWARNING);
      ADOTable1.Cancel;
    end;
    ADOTable1AfterScroll(ADOTable1);
  end;
end;

procedure Tbmda.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(Teditbm, editbm);
  editbm.dxEdit1.Text := ADOTable1.Fields[0].AsString;
  if editbm.ShowModal = 1 then
  begin
    if editbm.dxEdit1.Text = '' then exit;
    try
      ADOTable1.Edit;
      ADOTable1.Fields[0].AsString := editbm.dxEdit1.Text;
      ADOTable1.Post;
    except
      Application.MessageBox('部门名称有重复,不能保存.', '提示', MB_OK + MB_ICONWARNING);
      ADOTable1.Cancel;
    end;
  end;
end;

procedure Tbmda.BitBtn3Click(Sender: TObject);
begin
  if Application.MessageBox(Pchar('真的要删除部门档案吗?  名称:' + ADOTable1.Fields[0].asstring), '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  ADOTable1.Delete;
  ADOTable1AfterScroll(ADOTable1);
end;

procedure Tbmda.ADOTable1AfterScroll(DataSet: TDataSet);
begin
  if ADOTable1.RecordCount = 0 then
  begin
    BitBtn1.Enabled := false;
    BitBtn3.Enabled := false;
  end
  else
  begin
    BitBtn1.Enabled := true;
    BitBtn3.Enabled := true;
  end;
end;

procedure Tbmda.FormActivate(Sender: TObject);
begin
  ADOTable1AfterScroll(ADOTable1);
end;

end.