ywyinfounit.pas

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

unit YWYInfoUnit;

interface

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

type
  TYWYInfoForm = 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
 YWYInfoForm: TYWYInfoForm;

implementation

uses YWYEditUnit, MainUnit, FunctionUnit,dmunit;

{$R *.dfm}

procedure TYWYInfoForm.TB_addClick(Sender: TObject);
begin
  Application.CreateForm(TYWYEditForm, YWYEditForm);
  YWYEditForm.Caption := '业务员信息（增加）';
  YWYEditForm.P_state := 0;
  YWYEditForm.C_Type.ItemIndex := 1;
  adotable_data.Append;
  YWYEditForm.showmodal;
  YWYEditForm.free;
end;

procedure TYWYInfoForm.TB_EDITClick(Sender: TObject);
begin
  Application.CreateForm(TYWYEditForm, YWYEditForm);
  YWYEditForm.Caption := '业务员信息（编辑）';
  YWYEditForm.P_state := 1;
  adotable_data.Edit;
  YWYEditForm.showmodal;
  YWYEditForm.free;

end;

procedure TYWYInfoForm.TB_DELClick(Sender: TObject);
begin

    adotable_data.Delete;

end;

procedure TYWYInfoForm.FormCreate(Sender: TObject);
begin
  Adotable_data.Connection:=DM.ADOCon;
  Adotable_data.TableName:='ywydata';
  Adotable_data.Active:=true;

end;

procedure TYWYInfoForm.TB_refreshClick(Sender: TObject);
var
  I_index: integer;
begin

     adotable_data.close;
     adotable_data.open;
end;



procedure TywyInfoForm.DBG_BASSMESSDblClick(Sender: TObject);
begin
Application.CreateForm(TywyEditForm, ywyEditForm);
  ywyEditForm.Caption := '业务员信息（增加）';
  ywyEditForm.P_state := 0;
  ywyEditForm.C_Type.ItemIndex := 1;
  adotable_data.Append;
  ywyEditForm.showmodal;
  ywyEditForm.free;
end;

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

end.