goodmanage.pas

双鱼林网店销售管理系统+ 想轻松管理你的网店客户信息吗? 想轻松统计每个月的销售情况吗? 想随时随意查询某个地区的销售情况吗? 双鱼林自己也在网上开了自己的网点

unit GoodManage;

interface

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

type
  TGoodManageForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Edt_goodName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    CB_goodClassName: TComboBox;
    Btn_Submit: TButton;
    Btn_Cancle: TButton;
    Btn_AddInfo: TButton;
    Btn_UpdateInfo: TButton;
    Btn_Delete: TButton;
    GoodClassADOQuery: TADOQuery;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Btn_CancleClick(Sender: TObject);
    procedure Btn_SubmitClick(Sender: TObject);
    procedure Btn_DeleteClick(Sender: TObject);
    procedure Btn_UpdateInfoClick(Sender: TObject);
    procedure Btn_AddInfoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    currentState: char;
  end;

var
  GoodManageForm: TGoodManageForm;

implementation

{$R *.dfm}

procedure TGoodManageForm.Btn_AddInfoClick(Sender: TObject);
begin
  self.Edt_goodName.Text := '';
  self.Edt_goodName.SetFocus;
  self.Btn_Submit.Enabled := True;
  self.Btn_Cancle.Enabled := True;
  self.Btn_AddInfo.Enabled := False;
  self.Btn_UpdateInfo.Enabled := False;
  self.Btn_Delete.Enabled := False;
  self.currentState := 'i';
end;

procedure TGoodManageForm.Btn_CancleClick(Sender: TObject);
begin
  try
    self.ADOQuery1.Cancel;
  finally
    self.Btn_Submit.Enabled := False;
    self.Btn_Cancle.Enabled := False;
    self.Btn_AddInfo.Enabled := True;
    self.Btn_UpdateInfo.Enabled := True;
    self.Btn_Delete.Enabled := True;
  end;
end;

procedure TGoodManageForm.Btn_DeleteClick(Sender: TObject);
begin
  if (IDYES = MessageBox(self.Handle,'真的决定删除当前商品信息吗?','商品删除提示',MB_YESNO)) then
  begin
    try
      self.ADOQuery1.Delete;
      showmessage('删除成功!');
    except
      showmessage('删除失败!');
    end;
  end;
  
end;

procedure TGoodManageForm.Btn_SubmitClick(Sender: TObject);
begin
  if self.currentState = 'i' then
  begin
    try
      self.ADOQuery1.Insert;
      self.ADOQuery1.FieldByName('goodName').AsString := self.Edt_goodName.Text;
      self.ADOQuery1.FieldByName('goodClassName').AsString := self.CB_goodClassName.Text;
      self.ADOQuery1.Post;
      showmessage('新商品信息添加成功!');
    except
      showmessage('添加商品信息时发生了错误!');
    end;
  end
  else if self.currentState = 'u' then
  begin
    try
      self.ADOQuery1.Edit;
      self.ADOQuery1.FieldByName('goodName').AsString := self.Edt_goodName.Text;
      self.ADOQuery1.FieldByName('goodClassName').AsString := self.CB_goodClassName.Text;
      self.ADOQuery1.Post;
      showmessage('商品信息更新成功!');
    except
      showmessage('更新商品信息时发生了错误!');
    end;
  end;

  self.Btn_Submit.Enabled := False;
  self.Btn_Cancle.Enabled := False;
  self.Btn_AddInfo.Enabled := True;
  self.Btn_UpdateInfo.Enabled := True;
  self.Btn_Delete.Enabled := True;
end;

procedure TGoodManageForm.Btn_UpdateInfoClick(Sender: TObject);
begin
  self.Btn_Submit.Enabled := True;
  self.Btn_Cancle.Enabled := True;
  self.Btn_AddInfo.Enabled := False;
  self.Btn_UpdateInfo.Enabled := False;
  self.Btn_Delete.Enabled := False;
  self.currentState := 'u';
end;

procedure TGoodManageForm.DBGrid1DblClick(Sender: TObject);
begin
  self.Edt_goodName.Text := self.ADOQuery1.FieldByName('goodName').AsString;
  self.CB_goodClassName.Text := self.ADOQuery1.FieldByName('goodClassName').AsString;
end;

procedure TGoodManageForm.FormShow(Sender: TObject);
begin
  self.Left := Trunc((screen.Width - self.Width)/2);
  self.Top := Trunc((screen.Height - self.Height)/2);
  self.GoodClassADOQuery.SQL.Clear;
  self.GoodClassADOQuery.SQL.Add('select goodClassName from goodClassInfo');
  if self.GoodClassADOQuery.Active then
    self.GoodClassADOQuery.Close;
  self.GoodClassADOQuery.Open;
  while not(self.GoodClassADOQuery.Eof) do
  begin
    self.CB_goodClassName.Items.Add(self.GoodClassADOQuery.FieldByName('goodClassName').AsString);
    self.GoodClassADOQuery.Next;
  end;
  self.CB_goodClassName.ItemIndex := 0;
end;

end.