unitdhr.~pas

这是一个很好的超市管理系统

unit UnitDHR;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, Mask, DBCtrls, ExtCtrls;

type
  TFrmDHR = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure DIS;
    procedure CLS;
    procedure ENA;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDHR: TFrmDHR;

implementation

uses UnitDM;

{$R *.dfm}

procedure TFrmDHR.DIS;
var
  i: integer;
begin
  for i := 0 to componentcount - 1 do
  begin
    if (components[i] is TDBEdit) then
      TDBEdit(components[i]).Enabled := false;
  end;
end;

procedure TFrmDHR.CLS;
var
  i: integer;
begin
  for i := 0 to componentcount - 1 do
  begin
    if (components[i] is TDBEdit) then
      TDBEdit(components[i]).Clear;
  end;
end;

procedure TFrmDHR.ENA;
var
  i: integer;
begin
  for i := 0 to componentcount - 1 do
  begin
    if (components[i] is TDBEdit) then
      TDBEdit(components[i]).Enabled := true;
  end;
end;

procedure TFrmDHR.BitBtn1Click(Sender: TObject);
begin
  CLS;
  ENA;
  DBEdit1.SetFocus;
  BitBtn4.Enabled := true;
  BitBtn5.Enabled := true;
  BitBtn2.Enabled := false;
  BitBtn3.Enabled := false;
  BitBtn6.Enabled := false;
  with DM.ADOTDHR do
  begin
    last;
    append;
  end;
end;

procedure TFrmDHR.BitBtn2Click(Sender: TObject);
begin
  ENA;
  DM.ADOTDHR.Edit;
  BitBtn1.Enabled := false;
  BitBtn3.Enabled := false;
  BitBtn4.Enabled := true;
  BitBtn5.Enabled := true;
  BitBtn6.Enabled := false;
end;

procedure TFrmDHR.BitBtn3Click(Sender: TObject);
begin
  DM.ADOTDHR.Delete;
  BitBtn1.Enabled := false;
  BitBtn2.Enabled := false;
  BitBtn4.Enabled := true;
  BitBtn5.Enabled := true;
  BitBtn6.Enabled := false;
end;

procedure TFrmDHR.BitBtn4Click(Sender: TObject);
begin
  DM.ADOTDHR.Post;
  BitBtn1.Enabled := true;
  BitBtn2.Enabled := true;
  BitBtn3.Enabled := true;
  BitBtn4.Enabled := false;
  BitBtn5.Enabled := false;
  BitBtn6.Enabled := true;
  CLS;
  DIS;
end;

procedure TFrmDHR.BitBtn5Click(Sender: TObject);
begin
  DM.ADOTDHR.Cancel;
  BitBtn1.Enabled := true;
  BitBtn2.Enabled := true;
  BitBtn3.Enabled := true;
  BitBtn4.Enabled := false;
  BitBtn5.Enabled := false;
  BitBtn6.Enabled := true;
  CLS;
  DIS;
end;

procedure TFrmDHR.BitBtn6Click(Sender: TObject);
begin
  DM.ADOTDHR.Close;
  self.Close;
  
end;

procedure TFrmDHR.FormShow(Sender: TObject);
begin
  DM.ADOTDHR.Close;
  DM.ADOTDHR.Open;
  CLS;
  DIS;
end;

end.