tjghdw.~pas

企业库存管理系统

unit tjghdw;

interface

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

type
  Ttjghdwfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label8: TLabel;
    Edit8: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjghdwfrm: Ttjghdwfrm;

implementation
uses main;
{$R *.dfm}

procedure Ttjghdwfrm.BitBtn1Click(Sender: TObject);
begin
 if edit1.text='' then
  messagebox(tjghdwfrm.Handle,'请输入供货单位编号','警告',mb_ok+mb_iconwarning)
else
  if edit2.text='' then
  messagebox(tjghdwfrm.Handle,'请输入单位名称','警告',mb_ok+mb_iconwarning)
   else
     begin
       with ADOQuery1 do
       begin
        close;
        sql.Clear;
        sql.Add('insert into FEEDER(feederid,feedername,address,linkman,tel,fax,zipcode,feederremark)values(');
        sql.Add(''''+edit1.Text+''''+','+''''+edit2.Text+''''+','+''''+edit3.Text+''''+','+''''+edit4.Text+'''');
        sql.add(','+''''+edit5.Text+''''+','+''''+edit6.Text+''''+','+''''+edit7.Text+''''+','+''''+edit8.Text+''''+')');
        execsql;
        end;
      messagebox(tjghdwfrm.Handle,'货品信息已经成功添加','恭喜',mb_ok);
    end;
   with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from FEEDER where feederid='+''''+edit1.Text+'''');
    open;
    first;
    dbgrid1.Columns[0].FieldName:='feederid';
    dbgrid1.Columns[1].FieldName:='feedername';
    dbgrid1.Columns[2].FieldName:='address';
    dbgrid1.Columns[3].FieldName:='linkman';
    dbgrid1.Columns[4].FieldName:='tel';
    dbgrid1.Columns[5].FieldName:='fax';
    dbgrid1.Columns[6].FieldName:='zipcode';
    dbgrid1.Columns[7].FieldName:='feederremark';
    end;
end;

procedure Ttjghdwfrm.BitBtn2Click(Sender: TObject);
begin
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;

procedure Ttjghdwfrm.BitBtn3Click(Sender: TObject);
begin
 mainfrm.show;
 tjghdwfrm.hide;
end;

procedure Ttjghdwfrm.FormCreate(Sender: TObject);
begin
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from FEEDER ');
    open;
    first;
    dbgrid1.Columns[0].FieldName:='feederid';
    dbgrid1.Columns[1].FieldName:='feedername';
    dbgrid1.Columns[2].FieldName:='address';
    dbgrid1.Columns[3].FieldName:='linkman';
    dbgrid1.Columns[4].FieldName:='tel';
    dbgrid1.Columns[5].FieldName:='fax';
    dbgrid1.Columns[6].FieldName:='zipcode';
    dbgrid1.Columns[7].FieldName:='feederremark';
    end;
end;

end.