depotinfounit.pas

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

unit DepotInfoUnit;

interface

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

type
  TDepotInfoForm = class(TForm)
    PanelBkGnd: TPanel;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_EDIT: TToolButton;
    TB_DEL: TToolButton;
    TB_refresh: TToolButton;
    TB_EXIT: TToolButton;
    DBG_BASSMESS: TDBGrid;
    DataSource1: TDataSource;
    ADOTable_data: TADOTable;
    procedure TB_addClick(Sender: TObject);
    procedure TB_EDITClick(Sender: TObject);
    procedure TB_DELClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TB_refreshClick(Sender: TObject);
    procedure DBG_BASSMESSDblClick(Sender: TObject);
    procedure TB_EXITClick(Sender: TObject);
  private
  //  B_create: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DepotInfoForm: TDepotInfoForm;

implementation

uses DepotEditUnit, MainUnit, FunctionUnit,dmunit;

{$R *.dfm}

procedure TDepotInfoForm.TB_addClick(Sender: TObject);
begin
  Application.CreateForm(TDepotEditForm, DepotEditForm);
  DepotEditForm.Caption := '商场及仓库信息（增加）';
  DepotEditForm.P_state := 0;
  adotable_data.Append;
  DepotEditForm.showmodal;
  DepotEditForm.free;
end;

procedure TDepotInfoForm.TB_EDITClick(Sender: TObject);
begin
  Application.CreateForm(TDepotEditForm, DepotEditForm);
  DepotEditForm.Caption := '商场及仓库信息（编辑）';
  DepotEditForm.P_state := 1;
  adotable_data.Edit;
  DepotEditForm.showmodal;
  DepotEditForm.free;

end;

procedure TDepotInfoForm.TB_DELClick(Sender: TObject);
begin

    adotable_data.Delete;

end;

procedure TDepotInfoForm.FormCreate(Sender: TObject);
begin

  Adotable_data.Connection:=DM.ADOCon;
  Adotable_data.TableName:='depot';
  Adotable_data.Active:=true;

end;

procedure TDepotInfoForm.TB_refreshClick(Sender: TObject);
var
     I_index: integer;
begin
     adotable_data.close;
     adotable_data.open;
end;

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

procedure TDepotInfoForm.TB_EXITClick(Sender: TObject);
begin
  self.Close;
end;

end.