unit5.pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  var1:String;
implementation
 uses Unit1;
{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
    var1:=Edit1.Text;
   if(var1='')then
        showmessage('柜台退货编号不能够为空，请重新输入！')
   else
      begin
          adoquery1.Close;
          adoquery1.SQL.Clear;
          adoquery1.SQL.Add('select gttuihuo_id as"柜台退货编号",shangpin_name as"商品名称",shangpin_xinghao as"商品型号",');
          adoquery1.SQL.Add('jiliangdanwei as"计量单位",danjia as"单价",hejimoney as"合计金额",changshang_name as"厂商名",changshang_id as"厂商编号",guitai_no as"柜台编号",');
          adoquery1.SQL.Add('guitai_name as"柜台名",gtfuzeren_id as"柜台负责人编号",gtfuzeren_name as"柜台负责人名",gtjbren_id as"柜台经办人编号",gtjbren_name as"柜台经办人名",ck_id  as"仓库编号",');
          adoquery1.SQL.Add('ck_name as"仓库名",ckfzr_id as"仓库负责人编号",ckfzr_name as"仓库负责人名",ckjbr_id as"仓库经办人编号",ckjbr_name as"仓库经办人名",tuhuoliyou as"退货理由",tuihuo_date  as"退货日期"');
          adoquery1.SQL.Add('from gt_cktuihuoxinxi where gttuihuo_id='''+Edit1.text+'''');
          adoquery1.Open;
          if adoquery1.RecordCount=0 then
            showmessage('记录信息为'''+Edit1.text+'''不存在请重新输入！')
          else
              begin
               adoquery1.Close;
               adoquery1.SQL.Clear;
               adoquery1.SQL.Add('select gttuihuo_id as"柜台退货编号",shangpin_name as"商品名称",shangpin_xinghao as"商品型号",');
               adoquery1.SQL.Add('jiliangdanwei as"计量单位",danjia as"单价",hejimoney as"合计金额",changshang_name as"厂商名",changshang_id as"厂商编号",guitai_no as"柜台编号",');
               adoquery1.SQL.Add('guitai_name as"柜台名",gtfuzeren_id as"柜台负责人编号",gtfuzeren_name as"柜台负责人名",gtjbren_id as"柜台经办人编号",gtjbren_name as"柜台经办人名",ck_id  as"仓库编号",');
               adoquery1.SQL.Add('ck_name as"仓库名",ckfzr_id as"仓库负责人编号",ckfzr_name as"仓库负责人名",ckjbr_id as"仓库经办人编号",ckjbr_name as"仓库经办人名",tuhuoliyou as"退货理由",tuihuo_date  as"退货日期"');
               adoquery1.SQL.Add('from gt_cktuihuoxinxi where gttuihuo_id='''+Edit1.text+'''');
               adoquery1.Open;
               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:=50;        //修改dbgrid列宽度
               DBGRid1.Columns[9].Width:=50;
               DBGRid1.Columns[10].Width:=50;
               DBGRid1.Columns[11].Width:=50;
               DBGRid1.Columns[12].Width:=50;
               DBGRid1.Columns[13].Width:=50;
               DBGRid1.Columns[14].Width:=50;
               DBGRid1.Columns[15].Width:=50;
               DBGRid1.Columns[16].Width:=50;
               DBGRid1.Columns[17].Width:=50;
               DBGRid1.Columns[18].Width:=50;
               DBGRid1.Columns[19].Width:=50;
               DBGRid1.Columns[20].Width:=50;
               DBGRid1.Columns[21].Width:=50;
              end;
      end;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
edit1.Text:='';
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
               adoquery1.Close;
               adoquery1.SQL.Clear;
               adoquery1.SQL.Add('select gttuihuo_id as"柜台退货编号",shangpin_name as"商品名称",shangpin_xinghao as"商品型号",');
               adoquery1.SQL.Add('jiliangdanwei as"计量单位",danjia as"单价",hejimoney as"合计金额",changshang_name as"厂商名",changshang_id as"厂商编号",guitai_no as"柜台编号",');
               adoquery1.SQL.Add('guitai_name as"柜台名",gtfuzeren_id as"柜台负责人编号",gtfuzeren_name as"柜台负责人名",gtjbren_id as"柜台经办人编号",gtjbren_name as"柜台经办人名",ck_id  as"仓库编号",');
               adoquery1.SQL.Add('ck_name as"仓库名",ckfzr_id as"仓库负责人编号",ckfzr_name as"仓库负责人名",ckjbr_id as"仓库经办人编号",ckjbr_name as"仓库经办人名",tuhuoliyou as"退货理由",tuihuo_date  as"退货日期"');
               adoquery1.SQL.Add('from gt_cktuihuoxinxi ');
               adoquery1.Open;
               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:=50;        //修改dbgrid列宽度
               DBGRid1.Columns[9].Width:=50;
               DBGRid1.Columns[10].Width:=50;
               DBGRid1.Columns[11].Width:=50;
               DBGRid1.Columns[12].Width:=50;
               DBGRid1.Columns[13].Width:=50;
               DBGRid1.Columns[14].Width:=50;
               DBGRid1.Columns[15].Width:=50;
               DBGRid1.Columns[16].Width:=50;
               DBGRid1.Columns[17].Width:=50;
               DBGRid1.Columns[18].Width:=50;
               DBGRid1.Columns[19].Width:=50;
               DBGRid1.Columns[20].Width:=50;
               DBGRid1.Columns[21].Width:=50;
end;

end.