unit3.~pas

商场客户管理系统： 该系统为数据库上机实验操作。 主要是针对数据库查询

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    Button5: TButton;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Button6: TButton;
    Button7: TButton;
    Label20: TLabel;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  var1,var2:String;
implementation
uses Unit1;
{$R *.dfm}

procedure TForm3.Button5Click(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
    var1:=Edit1.Text;
    if(var1='')then
        Showmessage('单据编号不能够为空，请重新输入！')
     else
        begin
           adoquery1.Close;
           adoquery1.SQL.Clear;
           adoquery1.SQL.Add('Select*from tousuxinxi as T,customer as C');
           adoquery1.SQL.Add('where T.spdanju_id='''+Edit1.Text+'''and T.customer_id=C.customer_id ');
           adoquery1.Open;
           if Adoquery1.RecordCount=0 then
               Showmessage('无此单据编号信息，请确认后重新输入！')
            else
               begin
                   adoquery1.Close;
                   adoquery1.SQL.Clear;
                   adoquery1.SQL.Add('Select spdanju_id as "单据编号",T.customer_id "顾客编号",shangpin_xinghao "商品型号",');
                   adoquery1.SQL.Add('shangpin_name "商品名称",chanshang_name "产商名",chanshang_id "产商编号",jiliangdanwei "计量单位",');
                   adoquery1.SQL.Add('shuliang "数量",shangpin_danwei "商品单位",hejinoney "合计金额",tousuliyou "投诉理由",chuliyaoqiu "处理要求",');
                   adoquery1.SQL.Add('gouhuodate "购货日期",customer_name as "客户姓名",customer_sex as "性别",');
                   adoquery1.SQL.Add('customer_old as "年龄",customer_department as "单位",customer_adress as "地址",');
                   adoquery1.SQL.Add('customer_phone as ''联系电话'',customer_beizhu as "备注" ');
                   adoquery1.SQL.Add('from tousuxinxi as T,customer as C');
                   adoquery1.SQL.Add('where T.spdanju_id='''+Edit1.Text+'''and T.customer_id=C.customer_id ');
                   adoquery1.Open;
                   edit1.Text:=adoquery1.Fields[0].AsString;
                   edit13.Text:=adoquery1.Fields[1].AsString;
                   edit2.Text:=adoquery1.Fields[2].AsString;
                   edit3.Text:=adoquery1.Fields[3].AsString;
                   edit4.Text:=adoquery1.Fields[4].AsString;
                   edit5.Text:=adoquery1.Fields[5].AsString;
                   edit6.Text:=adoquery1.Fields[6].AsString;
                   edit7.Text:=adoquery1.Fields[7].AsString;
                   edit8.Text:=adoquery1.Fields[8].AsString;
                   edit9.Text:=adoquery1.Fields[9].AsString;
                   edit10.Text:=adoquery1.Fields[10].AsString;
                   edit11.Text:=adoquery1.Fields[11].AsString;
                   edit12.Text:=adoquery1.Fields[12].AsString;
                   edit14.Text:=adoquery1.Fields[13].AsString;
                   ComboBox1.Text:=adoquery1.Fields[14].AsString;
                   edit16.Text:=adoquery1.Fields[15].AsString;
                   edit17.Text:=adoquery1.Fields[16].AsString;
                   edit18.Text:=adoquery1.Fields[17].AsString;
                   edit19.Text:=adoquery1.Fields[18].AsString;

               end;
         DBGRid1.Columns[0].Width:=50;        //修改dbgrid列宽度
         DBGRid1.Columns[1].Width:=50;
         DBGRid1.Columns[2].Width:=50;
         DBGRid1.Columns[3].Width:=50;
         DBGRid1.Columns[4].Width:=50;
         DBGRid1.Columns[5].Width:=50;
         DBGRid1.Columns[6].Width:=50;
         DBGRid1.Columns[7].Width:=50;
         DBGRid1.Columns[8].Width:=45;
         DBGRid1.Columns[9].Width:=45;
         DBGRid1.Columns[10].Width:=45;
         DBGRid1.Columns[11].Width:=45;
         DBGRid1.Columns[12].Width:=45;
         DBGRid1.Columns[13].Width:=45;
         DBGRid1.Columns[14].Width:=45;
         DBGRid1.Columns[15].Width:=45;
         DBGRid1.Columns[16].Width:=45;
         DBGRid1.Columns[17].Width:=45;
         DBGRid1.Columns[18].Width:=45;
         DBGRid1.Columns[19].Width:=45;



        end;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
                   edit1.Text:='';
                   edit2.Text:='';
                   edit3.Text:='';
                   edit4.Text:='';
                   edit5.Text:='';
                   edit6.Text:='';
                   edit7.Text:='';
                   edit8.Text:='';
                   edit9.Text:='';
                   edit10.Text:='';
                   edit11.Text:='';
                   edit12.Text:='';
                   edit13.Text:='';
                   edit14.Text:='';
                   ComboBox1.Text:='';
                   edit16.Text:='';
                   edit17.Text:='';
                   edit18.Text:='';
                   edit19.Text:='';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
    var1:=Edit1.Text;
    var2:=Edit13.Text;
    if(var1='')then
         Showmessage('单据编号不能够为空，请重新输入！')
    else
         begin
            if(var2='')then
                Showmessage('客户编号不能够为空，请重新输入！')
            else
               begin
                adoquery1.Close;
                adoquery1.SQL.Clear;
                adoquery1.SQL.Add('Select spdanju_id as "单据编号",T.customer_id "顾客编号",shangpin_xinghao "商品型号",shangpin_name "商品名称",');
                adoquery1.SQL.Add('chanshang_name "产商名",chanshang_id "产商编号",jiliangdanwei "计量单位",shuliang "数量",shangpin_danwei "商品单位",');
                adoquery1.SQL.Add('hejinoney "合计金额",tousuliyou "投诉理由",chuliyaoqiu "处理要求",gouhuodate "购货日期" from tousuxinxi as T,customer as C');
                adoquery1.SQL.Add('where T.spdanju_id='''+Edit1.Text+'''and T.customer_id=C.customer_id');
                adoquery1.Open;
                if Adoquery1.RecordCount<>0 then
                     Showmessage('此单据编号信息已经存在，请确认后重新输入！');
                if Adoquery1.RecordCount=0 then
                   begin
                      adoquery1.Close;
                      adoquery1.SQL.Clear;
                      adoquery1.SQL.Add('Select*from customer where customer_id='''+Edit13.Text+'''');
                      adoquery1.Open;
                      if adoquery1.RecordCount<>0 then
                         begin
                          adoquery1.Close;
                          adoquery1.SQL.Clear;
                          adoquery1.SQL.Add('select*from tousuxinxi where spdanju_id='''+Edit1.Text+'''');
                          adoquery1.open;
                          if adoquery1.RecordCount=0 then
                          begin
                          adoquery1.Close;
                          adoquery1.SQL.Clear;
                          adoquery1.SQL.Add('insert into tousuxinxi(spdanju_id,customer_id,shangpin_xinghao,shangpin_name ,');
                          adoquery1.SQL.Add('chanshang_name,chanshang_id,jiliangdanwei,shuliang,shangpin_danwei,hejinoney,tousuliyou,chuliyaoqiu,gouhuodate)values');
                          adoquery1.Sql.Add('('''+Edit1.Text+''','''+Edit13.Text+''','''+Edit2.Text+''','''+Edit3.Text+''',');
                          adoquery1.Sql.Add(''''+Edit4.Text+''','''+Edit5.Text+''','''+Edit6.Text+''',');
                          adoquery1.Sql.Add(''''+Edit7.Text+''','''+Edit8.Text+''','''+Edit9.Text+''','''+Edit10.Text+''','''+Edit11.Text+''','''+Edit12.Text+''')');
                          adoquery1.ExecSQL;
                          adoquery1.Close;
                          adoquery1.SQL.Clear;
                          adoquery1.SQL.Add('update customer set customer_id='''+Edit13.Text+''',customer_name='''+Edit14.Text+''',');
                          adoquery1.SQL.Add('customer_sex ='''+ComboBox1.Text+''',customer_old ='''+Edit16.Text+''',customer_department='''+Edit17.Text+''',');