goodclassmanage.pas

来自「双鱼林网店销售管理系统+ 想轻松管理你的网店客户信息吗? 想轻松统计每个月的」· PAS 代码 · 共 130 行

unit GoodClassManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TGoodClassManageForm = class(TForm)
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Edt_goodClassName: TEdit;
    Btn_Add: TButton;
    Btn_Update: TButton;
    Btn_Delete: TButton;
    Btn_Submit: TButton;
    Btn_Cancle: TButton;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Btn_CancleClick(Sender: TObject);
    procedure Btn_SubmitClick(Sender: TObject);
    procedure Btn_DeleteClick(Sender: TObject);
    procedure Btn_UpdateClick(Sender: TObject);
    procedure Btn_AddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    currentState: char;
  end;

var
  GoodClassManageForm: TGoodClassManageForm;

implementation

{$R *.dfm}

procedure TGoodClassManageForm.Btn_AddClick(Sender: TObject);
begin
  self.Edt_goodClassName.Text := '';
  self.Btn_Add.Enabled := False;
  self.Btn_Update.Enabled := False;
  self.Btn_Delete.Enabled := False;
  self.Btn_Submit.Enabled := True;
  Self.Btn_Cancle.Enabled := True;
  self.currentState := 'i';
end;

procedure TGoodClassManageForm.Btn_CancleClick(Sender: TObject);
begin
  try
    self.ADOQuery1.Cancel;
  finally
    self.Btn_Add.Enabled := True;
    self.Btn_Update.Enabled := True;
    self.Btn_Delete.Enabled := True;
    self.Btn_Submit.Enabled := False;
    self.Btn_Cancle.Enabled := False;
  end;
end;

procedure TGoodClassManageForm.Btn_DeleteClick(Sender: TObject);
begin
  if (IDYES = MessageBox(self.Handle,'确认删除当前记录吗','删除提示',MB_YESNO)) then
  begin
    try
      self.ADOQuery1.Delete;
    except
      showmessage('删除记录时发生了错误!');
    end;
  end;
  
end;

procedure TGoodClassManageForm.Btn_SubmitClick(Sender: TObject);
begin
  if self.currentState = 'i' then
  begin
    try
      self.ADOQuery1.Insert;
      self.ADOQuery1.FieldByName('goodClassName').AsString := self.Edt_goodClassName.Text;
      self.ADOQuery1.Post;
    except
      showmessage('添加商品时发生了错误!');
    end;
  end
  else if self.currentState = 'u' then
  begin
    try
      self.ADOQuery1.Edit;
      self.ADOQuery1.FieldByName('goodClassName').AsString := self.Edt_goodClassName.Text;
      self.ADOQuery1.Post;
    except
      showmessage('更新商品时发生了错误!');
    end;
  end;
  self.Btn_Add.Enabled := True;
  self.Btn_Update.Enabled := True;
  self.Btn_Delete.Enabled := True;
  self.Btn_Submit.Enabled := False;
  self.Btn_Cancle.Enabled := False;
end;

procedure TGoodClassManageForm.Btn_UpdateClick(Sender: TObject);
begin
  self.Btn_Add.Enabled := False;
  self.Btn_Update.Enabled := False;
  self.Btn_Delete.Enabled := False;
  self.Btn_Submit.Enabled := True;
  Self.Btn_Cancle.Enabled := True;
  self.currentState := 'u';
end;

procedure TGoodClassManageForm.DBGrid1DblClick(Sender: TObject);
begin
  self.Edt_goodClassName.Text := self.ADOQuery1.FieldByName('goodClassName').AsString;
end;

procedure TGoodClassManageForm.FormShow(Sender: TObject);
begin
  self.Left := Trunc((screen.Width - self.Width)/2);
  self.Top := Trunc((screen.Height - self.Height)/2);
end;

end.