tjshdw.pas

企业库存管理系统

unit tjshdw;

interface

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

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

var
  tjshdwfrm: Ttjshdwfrm;

implementation
uses main;
{$R *.dfm}

procedure Ttjshdwfrm.BitBtn1Click(Sender: TObject);
begin
if edit1.text='' then
  messagebox(tjshdwfrm.Handle,'请输入收货单位编号','警告',mb_ok+mb_iconwarning)
else
  if edit2.text='' then
  messagebox(tjshdwfrm.Handle,'请输入单位名称','警告',mb_ok+mb_iconwarning)
   else
     begin
       with ADOQuery1 do
       begin
        close;
        sql.Clear;
        sql.Add('insert into CUSTOMER(customerid,customername,address,linkman,tel,fax,zipcode,customerremark)values(');
        sql.Add(''''+edit1.Text+''''+','+''''+edit2.Text+''''+','+''''+edit3.Text+''''+','+''''+edit4.Text+'''');
        sql.add(','+''''+edit5.Text+''''+','+''''+edit6.Text+''''+','+''''+edit7.Text+''''+','+''''+edit8.Text+''''+')');
        execsql;
        end;
      messagebox(tjshdwfrm.Handle,'货品信息已经成功添加','恭喜',mb_ok);
    end;
  with adoquery1 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from CUSTOMER where customerid='+''''+edit1.Text+'''');
    open;
    first;
    dbgrid1.Columns[0].FieldName:='customerid';
    dbgrid1.Columns[1].FieldName:='customername';
    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:='customerremark';
    end;
end;

procedure Ttjshdwfrm.BitBtn3Click(Sender: TObject);
begin
mainfrm.Show;
tjshdwfrm.Hide;
end;

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

end.