frmbasicinfoset.~pas

这是一个商品管理系统

unit FrmBasicInfoSet;

interface

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

type
  TFormBasicInfoSet = class(TForm)
    EditID: TEdit;
    Label2: TLabel;
    EditName: TEdit;
    Label3: TLabel;
    BtnAdd: TButton;
    CBObject: TComboBox;
    Label1: TLabel;
    DataSrcBasicInfo: TDataSource;
    DataGrid: TDBGrid;
    DataSetBasicInfo: TADODataSet;
    BtnModify: TButton;
    BtnRemove: TButton;
    CmdSetBasicInfo: TADOCommand;
    BtnOK: TButton;
    procedure FormShow(Sender: TObject);
    procedure CBObjectChange(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnModifyClick(Sender: TObject);
    procedure BtnRemoveClick(Sender: TObject);
    procedure DataGridCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    TableName: string;
    { Public declarations }
  end;

var
  FormBasicInfoSet: TFormBasicInfoSet;

implementation

{$R *.dfm}

procedure TFormBasicInfoSet.FormShow(Sender: TObject);
begin
        CBObjectChange(Sender);
end;

procedure TFormBasicInfoSet.CBObjectChange(Sender: TObject);
begin
        if (CBObject.Text = '国家') then
                TableName := 'Nation'
        else if (CBObject.Text = '地区') then
                TableName := 'Area'
        else if (CBObject.Text = '仓库') then
                TableName := 'Depot'
        else if (CBObject.Text = '类别') then
                TableName := 'Sort'
        else if (CBObject.Text = '行业') then
                TableName := 'Trade'
        else if (CBObject.Text = '送货方式') then
                TableName := 'Deliver'
        else if (CBObject.Text = '付款方式') then
                TableName := 'Payment'
        else
                TableName := '';
        if not(TableName = '') then
        begin
                DataSetBasicInfo.Active := false;
                DataSetBasicInfo.CommandText := 'select * from ' + TableName;
                DataSetBasicInfo.Active := true;
        end;
        EditName.Text := '';
        EditID.Text := '';
end;

procedure TFormBasicInfoSet.BtnAddClick(Sender: TObject);
begin
        if not(TableName = '') then
        begin
                CmdSetBasicInfo.CommandText := 'INSERT INTO ' + TableName + ' VALUES(''' + EditID.Text + ''',''' + EditName.Text + ''')';
                CmdSetBasicInfo.Execute;
                DataSetBasicInfo.Active := false;
                DataSetBasicInfo.CommandText := 'select * from ' + TableName;
                DataSetBasicInfo.Active := true;                                                       
        end
end;

procedure TFormBasicInfoSet.BtnModifyClick(Sender: TObject);
begin
        if not(TableName = '') then
        begin
                CmdSetBasicInfo.CommandText := 'UPDATE ' + TableName + ' SET NAME = ''' + EditName.Text + ''' WHERE ID = ''' + EditID.Text + '''';
                CmdSetBasicInfo.Execute;
                DataSetBasicInfo.Active := false;
                DataSetBasicInfo.CommandText := 'select * from ' + TableName;
                DataSetBasicInfo.Active := true;                                                       
        end
end;

procedure TFormBasicInfoSet.BtnRemoveClick(Sender: TObject);
begin
        if not(TableName = '') then
        begin
                CmdSetBasicInfo.CommandText := 'DELETE FROM ' + TableName + ' WHERE ID = ''' + EditID.Text + '''';
                CmdSetBasicInfo.Execute;
                DataSetBasicInfo.Active := false;
                DataSetBasicInfo.CommandText := 'select * from ' + TableName;
                DataSetBasicInfo.Active := true;                                                       
        end
end;

procedure TFormBasicInfoSet.DataGridCellClick(Column: TColumn);
begin
        EditID.Text := DataSetBasicInfo.FieldByName('id').AsString;
        EditName.Text := DataSetBasicInfo.FieldByName('name').AsString;
end;

end.