⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit4.~pas

📁 商场客户管理系统： 该系统为数据库上机实验操作。 主要是针对数据库查询
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
unit Unit4;

interface

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

type
  TForm4 = 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;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    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;
    Edit15: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Label22: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  var1:String;
implementation
uses Unit1;
{$R *.dfm}

procedure TForm4.Button2Click(Sender: TObject);
begin
form4.Close;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
     var1:=Edit2.Text;
     if(var1='')then
     showmessage('单据编号不能够为空，请重新输入！')
     else
         begin
             adoquery1.Close;
             Adoquery1.SQL.Clear;
             adoquery1.SQL.Add('select T.customer_id as"客户编号",thdanju_id as"单据编号",spno as"商品型号",');
             adoquery1.SQL.Add('shangpin_name as"商品名称",jiliangdanwei as"计量单位",shuliangdanjia as"数量单价",hejimoney as"合计金额",');
             adoquery1.SQL.Add('changshang_no as"厂商编号",tuihuoyuanyin as"退货原因",chulujieguo as"处理结果",gouhuodate as"购货日期",yaoqiutuihuodate as"要求退货时间",');
             adoquery1.SQL.Add('chulidate as"处理日期",tuihuojbperson as"退货经办人",jbperson_id  as"经办人号"');
             adoquery1.SQL.Add('from tuihuoxinxi as T,customer as C where T.thdanju_id='''+Edit2.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 T.customer_id as"客户编号",thdanju_id as"单据编号",spno as"商品型号",');
                  adoquery1.SQL.Add('shangpin_name as"商品名称",jiliangdanwei as"计量单位",shuliangdanjia as"数量单价",hejimoney as"合计金额",changshang_name as"厂商名",');
                  adoquery1.SQL.Add('changshang_no as"厂商编号",tuihuoyuanyin as"退货原因",chulujieguo as"处理结果",gouhuodate as"购货日期",yaoqiutuihuodate as"要求退货时间",');
                  adoquery1.SQL.Add('chulidate as"处理日期",tuihuojbperson as"退货经办人",jbperson_id  as"经办人号",customer_name as"客户姓名",customer_sex as"性别",customer_old as"年龄",customer_adress as"地址",customer_phone as"联系电话"');
                  adoquery1.SQL.Add('from tuihuoxinxi as T,customer as C where T.thdanju_id='''+Edit2.Text+'''and T.customer_id=C.customer_id');
                  Adoquery1.Open;
                 edit1.Text:=adoquery1.Fields[0].AsString;
                 edit2.Text:=adoquery1.Fields[1].AsString;
                 Edit4.Text:=adoquery1.Fields[2].AsString;
                 edit3.Text:=adoquery1.Fields[3].AsString;
                 edit5.Text:=adoquery1.Fields[4].AsString;
                 edit6.Text:=adoquery1.Fields[5].AsString;
                 edit7.Text:=adoquery1.Fields[6].AsString;
                 edit8.Text:=adoquery1.Fields[7].AsString;
                 edit9.Text:=adoquery1.Fields[8].AsString;
                 edit10.Text:=adoquery1.Fields[9].AsString;
                 Edit11.Text:=adoquery1.Fields[10].AsString;
                 edit12.Text:=adoquery1.Fields[11].AsString;
                 edit13.Text:=adoquery1.Fields[12].AsString;
                 edit14.Text:=adoquery1.Fields[13].AsString;
                 edit20.Text:=adoquery1.Fields[14].AsString;
                 edit21.Text:=adoquery1.Fields[15].AsString;
                 edit15.Text:=adoquery1.Fields[16].AsString;
                 comboBox1.Text:=adoquery1.Fields[17].AsString;
                 edit17.Text:=adoquery1.Fields[18].AsString;
                 edit18.Text:=adoquery1.Fields[19].AsString;
                 edit19.Text:=adoquery1.Fields[20].AsString;

                 end;
              DBGRid1.Columns[0].Width:=50;
              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;
              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; }


         end;

end;

procedure TForm4.Button3Click(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:='';
Edit15.Text:='';
ComboBox1.Text:='';
Edit17.Text:='';
Edit18.Text:='';
Edit19.Text:='';
Edit20.Text:='';
Edit21.Text:='';

end;

procedure TForm4.Button4Click(Sender: TObject);
begin
                  adoquery1.Close;
                  Adoquery1.SQL.Clear;
                  adoquery1.SQL.Add('select T.customer_id as"客户编号",thdanju_id as"单据编号",spno as"商品型号",');
                  adoquery1.SQL.Add('shangpin_name as"商品名称",jiliangdanwei as"计量单位",shuliangdanjia as"数量单价",hejimoney as"合计金额",changshang_name as"厂商名",');
                  adoquery1.SQL.Add('changshang_no as"厂商编号",tuihuoyuanyin as"退货原因",chulujieguo as"处理结果",gouhuodate as"购货日期",yaoqiutuihuodate as"要求退货时间",');
                  adoquery1.SQL.Add('chulidate as"处理日期",tuihuojbperson as"退货经办人",jbperson_id  as"经办人号",customer_name as"客户姓名",customer_sex as"性别",customer_old as"年龄",customer_adress as"地址",customer_phone as"联系电话"');
                  adoquery1.SQL.Add('from tuihuoxinxi as T,customer as C where T.customer_id=C.customer_id');
                  Adoquery1.Open;
                  DBGRid1.Columns[0].Width:=50;
                  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;
                  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;



end;

procedure TForm4.Button5Click(Sender: TObject);
begin
     var1:=Edit2.Text;
     if(var1='')then
     showmessage('单据编号不能够为空，请重新输入！')
     else
         begin
             adoquery1.Close;
             Adoquery1.SQL.Clear;
             adoquery1.SQL.Add('select T.customer_id as"客户编号",thdanju_id as"单据编号",spno as"商品型号",');
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -