unit2.pas

中鼎百货进销存系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, TabNotBk, DBCtrls, Mask, DB, ADODB, Grids,
  DBGrids,unit6;

type
  TForm2 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    ADOQuery1: TADOQuery;
    conn_cus: TADOConnection;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBCom_Area: TDBComboBox;
    Label2: TLabel;
    DBCom_Sale: TDBComboBox;
    GroupBox2: TGroupBox;
    Label24: TLabel;
    DBEdit_Tele: TDBEdit;
    Label26: TLabel;
    DBEdit_mp: TDBEdit;
    Label25: TLabel;
    DBEdit_fax: TDBEdit;
    Label28: TLabel;
    DBEdit_Mail: TDBEdit;
    GroupBox3: TGroupBox;
    Label20: TLabel;
    DBedit_Name: TDBEdit;
    Label21: TLabel;
    DBEdit_Addr: TDBEdit;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    DBEdit1: TDBEdit;
    Label22: TLabel;
    DBeditG_M: TDBEdit;
    Label23: TLabel;
    DBedit_Rela: TDBEdit;
    Label27: TLabel;
    DBCom_Type: TDBComboBox;
    DBGrid1: TDBGrid;
    GroupBox5: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DB_Cus_no: TDBEdit;
    DBcus_name: TDBEdit;
    DB_manu: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DB_quality: TDBEdit;
    DBsize: TDBEdit;
    DBpack: TDBEdit;
    DBnum: TDBEdit;
    DBprice: TDBEdit;
    DBinputtime: TDBEdit;
    DBuser: TDBEdit;
    Label14: TLabel;
    DBJiner: TDBEdit;
    DBEdit2: TDBEdit;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    GroupBox6: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    GroupBox7: TGroupBox;
    Button1: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    function  ConnectDataBase():boolean;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    Cus_no:string;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
function TForm2.ConnectDataBase():boolean;
var
 Constr:string;
begin
conn_cus.Close;
 try
  Constr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;';
  Constr:=Constr+'Data Source='+ExtractFilePath(Application.ExeName)+'database\ZD.mdb;Mode=ReadWrite';
  conn_cus.ConnectionString := Constr;
  conn_cus.Connected:=true;
  result:=true;
 except
 result:=false;
 application.MessageBox('连接数据库失败','提示',1);
 end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
 DBeditG_M.Enabled:=true;
 DBedit_Rela.Enabled:=true;
 DBedit_Name.Enabled:=true;
 DBEdit_Addr.Enabled:=true;
 DBEdit_Tele.Enabled:=true;
 DBEdit_mp.Enabled:=true;
 DBEdit_fax.Enabled:=true;
 DBEdit_Mail.Enabled:=true;
 DBCom_Type.Enabled:=true;
 DBCom_Area.Enabled:=true;
 DBCom_Sale.Enabled:=true;
end;

procedure TForm2.FormShow(Sender: TObject);
var
sql1,sql2,sql:string;
begin
ConnectDataBase;
 sql1:='Select cus_no,cus_name,General_Mng,cus_addr,relation,';
 sql2:='teleno,fax,mobilephone,mail,ent_type,area_type,own_sales from Custom where cus_no='''+Cus_no+'''';
 sql:=sql1+sql2;
 ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sql);
ADOQuery1.Open;
 DBedit1.DataField:='cus_no';
 DBeditG_M.DataField:='General_Mng';
 DBedit_Rela.DataField:='relation';
 DBedit_Name.DataField:='cus_name';
 DBEdit_Addr.DataField:='cus_addr';
 DBEdit_Tele.DataField:='teleno';
 DBEdit_mp.DataField:='mobilephone';
 DBEdit_fax.DataField:='fax';
 DBEdit_Mail.DataField:='mail';
 DBCom_Type.DataField:='ent_type';
 DBCom_Area.DataField:='area_type';
 DBCom_Sale.DataField:='own_sales';


 sql1:='Select ID as 出库编号, Cus_NO as 客户编号,Cus_Name as 客户名称,ManuFactory as 生产厂家,Quality as 产品品类,Pzsize as 产品名称,packagenum as 包装规格,CellNum as 数量,';
 sql2:='Price as 单价,Jiner as 金额,PzUser as 经手人,Outputdate as 进货日期 from OutputCell where Cus_NO='''+Cus_no+'''';
 sql:=sql1+sql2;
 ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Add(sql);
 ADOQuery2.Open;

   DBEdit2.DataField:='出库编号';

DB_Cus_no.DataField:='客户编号';
DB_manu.DataField:='生产厂家';
DB_quality.DataField:='产品品类';
DBsize.DataField:='产品名称';
DBcus_name.DataField:='客户名称';
DBpack.DataField:='包装规格';
DBnum.DataField:='数量';
DBprice.DataField:='单价';
DBJiner.DataField:='金额';
DBinputtime.DataField:='进货日期';
DBuser.DataField:='经手人';
 end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form6.Caption:=DBcus_name.Text+'查询';
form6.Cus_NO:=DB_Cus_no.Text;
form6.Show;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Button5Click(Sender: TObject);
var
sql,sql1,sql2,sql3:string;
begin
 if messagedlg('需要保存的客户资料吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
   sql1:='update custom set cus_name='''+DBedit_Name.text+''',General_Mng='''+DBeditG_M.text+''',cus_addr='''+DBEdit_Addr.text+''',relation='''+DBedit_Rela.text+''',';
   sql2:='teleno='''+DBEdit_Tele.text+''',fax='''+DBEdit_fax.text+''',mobilephone='''+DBEdit_mp.text+''',mail='''+DBEdit_Mail.text+''',ent_type='''+DBCom_Type.text+''',area_type='''+DBCom_Area.text+''',own_sales='''+DBCom_Sale.text+'''';
   sql3:=' where cus_no='''+DBedit1.text+'''';
   sql:=sql1+sql2+sql3;
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.ExecSQL;

   sql:='select * from custom';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
end;
end;
end.