tjck.~pas

企业库存管理系统

unit tjck;

interface

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

type
  Ttjckfrm = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjckfrm: Ttjckfrm;

implementation

{$R *.dfm}

procedure Ttjckfrm.BitBtn1Click(Sender: TObject);
begin
adotable1.last;
adotable1.Edit;
adotable1.Append;
adotable1.FieldValues['depotid']:=edit1.Text;
adotable1.FieldValues['depotname']:=edit2.Text;
adotable1.FieldValues['address']:=edit3.Text;
adotable1.FieldValues['principal']:=edit4.Text;
adotable1.Post;
adotable1.UpdateRecord;
with adoquery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select * from DEPOT where depotid='+''''+edit1.Text+'''');
  open;
  first;
  dbgrid1.Columns[0].FieldName:='depotid';
  dbgrid1.Columns[1].FieldName:='depotname';
  dbgrid1.Columns[2].FieldName:='address';
  dbgrid1.Columns[3].FieldName:='principal';
   end;
  end;

procedure Ttjckfrm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.