goodsinfounit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit GoodsInfoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, ComCtrls, ToolWin, ExtCtrls, ADODB;

type
  TGoodsInfoForm = class(TForm)
    PanelBkGnd: TPanel;
    Splitter1: TSplitter;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_EDIT: TToolButton;
    TB_DEL: TToolButton;
    ToolButton5: TToolButton;
    TB_EXIT: TToolButton;
    DBG_BASSMESS: TDBGrid;
    DBG_name: TDBGrid;
    DataSource_name: TDataSource;
    DataSource: TDataSource;
    tb_refresh: TToolButton;
    ADOTable0_DATA: TADOTable;
    ADOQuery_data: TADOQuery;
    procedure TB_addClick(Sender: TObject);
    procedure tb_refreshClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure TB_EXITClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBG_nameCellClick(Column: TColumn);
    procedure DBG_BASSMESSDblClick(Sender: TObject);
  private
    B_create: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GoodsInfoForm: TGoodsInfoForm;

implementation

uses GoodsEditUnit, MainUnit, FunctionUnit, DMUnit;

{$R *.dfm}
procedure TGoodsInfoForm.FormCreate(Sender: TObject);
begin

        self.Caption := '商品信息';
        Adotable0_data.Connection:=DM.ADOCon;
        Adotable0_data.TableName:='Goods';
        Adotable0_data.Active:=true;
        Adoquery_data.Connection:=DM.ADOCon;

end;

procedure TGoodsInfoForm.TB_addClick(Sender: TObject);
begin
        application.CreateForm(TGoodsEditForm,GoodsEditForm);
        GoodsEditForm.P_state := 0;
        adotable0_data.Append;
        GoodsEditForm.ShowModal;
        GoodsEditForm.Free;
end;

procedure TGoodsInfoForm.tb_refreshClick(Sender: TObject);

begin
    adotable0_data.close;
    adotable0_data.open;
end;

procedure TGoodsInfoForm.TB_EDITClick(Sender: TObject);
begin
    application.CreateForm(TGoodsEditForm,GoodsEditForm);
    GoodsEditForm.P_state := 1;
    adotable0_data.Edit;
    GoodsEditForm.ShowModal;
    GoodsEditForm.Free;
end;

procedure TGoodsInfoForm.TB_DELClick(Sender: TObject);
begin
 adotable0_data.Delete;
end;

procedure TGoodsInfoForm.TB_EXITClick(Sender: TObject);
begin
  Self.Close;
end;


procedure TGoodsInfoForm.DBG_nameCellClick(Column: TColumn);
begin
  with adoquery_data do
  begin
    close;
    sql.Clear;
    sql.Text := 'SELECT * FROM goods where Name="' + DBG_name.SelectedField.Text
      + '" ORDER BY NAME';
    try
      open;
    except
      messagedlg(Errormsg0001, mtError, [mbok], 0);
      close;
    end;
  end;
end;

procedure TGoodsInfoForm.DBG_BASSMESSDblClick(Sender: TObject);
begin
  TB_edit.Click
end;

end.