xgck.~pas

企业库存管理系统

unit xgck;

interface

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

type
  Txgckfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBComboBox1: TDBComboBox;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgckfrm: Txgckfrm;

implementation

{$R *.dfm}

procedure Txgckfrm.BitBtn1Click(Sender: TObject);
begin
if strtoint(dbcombobox1.text)=adoquery1.FieldByName('depotid').AsInteger then
  adoquery1.Edit;
  adoquery1.FieldByName('depotname').AsString:=EDIT1.TEXT;
  adoquery1.FieldByName('address').AsString:=edit2.Text;
  adoquery1.FieldByName('principal').AsString:=edit3.Text;
  adoquery1.Post;
end;

procedure Txgckfrm.BitBtn3Click(Sender: TObject);
begin
  adoquery1.First;
  while not adoquery1.Eof do
  begin
     adoquery1.Edit;
     adoquery1.Delete;
  end;
end;

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

end.