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

📄 in_master_caizepeng042_04.pas

📁 这个是我的数据库的课程设计:超市商品数据管理系统的设计,,采用面向C/S模式的通用开发工具Delphi设计其前台的操作
💻 PAS
字号:
🔍 
unit in_master_caizepeng042_04;

interface

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

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button6: TButton;
    Button7: TButton;
    Label12: TLabel;
    Button8: TButton;
    Edit12: TEdit;
    Button9: TButton;
    Label13: TLabel;
    Edit13: TEdit;
    Button10: TButton;
    Button2: TButton;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
 

  private
    { Private declaration
    procedure Button8Click(Sender: TObject);s }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses supplier_caizepeng042_04;

{$R *.dfm}


procedure TForm4.Button1Click(Sender: TObject);

var bianliang:string;
begin
bianliang:='select * from in_master_caizepeng042_04 where(100=100)';
if edit1.text<>'' then
bianliang:=bianliang+'and(验收单号='''+edit1.Text+''')';
if edit2.text<>'' then
bianliang:=bianliang+'and(入库日期=convert(datetime,('''+edit2.Text+'''))';
if edit3.text<>'' then
bianliang:=bianliang+'and(供应商号='''+edit3.Text+''')';
if edit4.text<>'' then
bianliang:=bianliang+'and(员工编号='''+edit4.Text+''')';

adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add(bianliang);
adoquery1.Open;

if ADOQuery1.recordcount=0 then
messagebox(form4.Handle,'没有符合你所要找的入库单，请重新查找','查询警告',mb_ok+mb_iconwarning);
adoquery1.Active:=true;
end;


procedure TForm4.Button2Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Add('select * from in_master_caizepeng042_04');
Adoquery1.ExecSQL;
Adoquery1.Active:=true;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
if edit5.text='' then
messagebox(form4.Handle,'要修改的入库单不能为空','警告',mb_ok+mb_iconwarning)
else
if edit5.Text<>edit1.text then
messagebox(form4.Handle,'入库单输入不一致，不能进行修改，重新输入','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 验收单号 from in_master_caizepeng042_04 where 验收单号='''+edit5.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('验收单号').AsString<>'' then

begin
if edit2.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  in_master_caizepeng042_04 set 入库日期=convert(datetime,'''+edit2.text+''') where 验收单号='''+edit5.text+'''');
adoquery1.execsql;
end;
if edit3.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  in_master_caizepeng042_04 set 供应商号='''+edit3.text+''' where 验收单号='''+edit5.text+'''');
adoquery1.execsql;
end;
if edit4.text<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.sql.Add('update  in_master_caizepeng042_04 set 员工编号='''+edit4.text+''' where 验收单号='''+edit5.text+'''');
adoquery1.execsql;
end;

end
else
begin
showmessage('提示：该入库单不存在');
end;
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from in_master_caizepeng042_04');
Adoquery1.Open;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin

if edit1.text='' then
messagebox(form4.Handle,'验收单号不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 验收单号 from in_master_caizepeng042_04 where 验收单号='''+edit1.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('验收单号').AsString='' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into in_master_caizepeng042_04 values('''+edit1.Text+''',getdate(),'''+edit3.text+''','''+edit4.text+''')');
adoquery1.execsql;
end
else
begin
showmessage('该入库单已经存在，请确定');
end;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from in_master_caizepeng042_04');
Adoquery1.Open;
end;
end;

procedure TForm4.Button8Click(Sender: TObject);
var bianliang:string;
begin
bianliang:='select * from in_caizepeng042_04 where(100=100)';
if edit7.text<>'' then
bianliang:=bianliang+'and(验收单号='''+edit7.Text+''')';
if edit8.text<>'' then
bianliang:=bianliang+'and(商品编号='''+edit8.Text+''')';
if edit9.text<>'' then
bianliang:=bianliang+'and(进货数量='''+edit9.Text+''')';
if edit10.text<>'' then
bianliang:=bianliang+'and(货区号='''+edit10.Text+''')';
if edit11.text<>'' then
bianliang:=bianliang+'and(货架号='''+edit11.Text+''')';

adoquery2.close;
adoquery2.SQL.clear;
adoquery2.SQL.Add(bianliang);
adoquery2.Open;

if ADOQuery2.recordcount=0 then
messagebox(form4.Handle,'没有符合你所要找的入库单，请重新查找','查询警告',mb_ok+mb_iconwarning);
adoquery2.Active:=true;
end;

procedure TForm4.Button6Click(Sender: TObject);
begin
Adoquery2.Close;
Adoquery2.SQL.clear;
Adoquery2.SQL.Add('select * from in_caizepeng042_04');
Adoquery2.ExecSQL;
Adoquery2.Active:=true;

Adoquery3.Close;
Adoquery3.SQL.clear;
adoquery3.sql.Add('select * from chao_caizepeng042_04 where 是否超低储额=''是'' or 是否超高储额=''是''');
Adoquery3.ExecSQL;
Adoquery3.Active:=true;
end;

procedure TForm4.Button7Click(Sender: TObject);
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 货区号 from huojia_caizepeng042_04 where 货区号='''+edit10.text+''''+'and 货架号='+''''+edit11.text+'''';
adoquery2.Open;
if ((edit7.text='') or (edit8.text='')) then
messagebox(form4.Handle,'验收单号或商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
if adoquery2.FieldByName('货区号').AsString='' then
messagebox(form4.Handle,'所输入的货架号不在货区内，请重新输入','警告',mb_ok+mb_iconwarning)

else

begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 验收单号 from in_caizepeng042_04 where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('验收单号').AsString='' then
begin

Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('insert into in_caizepeng042_04 values('''+edit7.Text+''','''+edit8.text+''',convert(int,'''+edit9.text+'''),'''+edit10.text+''','''+edit11.text+''')');
adoquery2.execsql;

//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//adoquery2.SQL.text:='select 货架号 from kucun_caizepeng042_04 where 货架号='''+edit11.text+''''+'and 商品编号='+''''+edit8.Text+'''';
//adoquery2.open;
//if adoquery2.FieldByName('货架号').AsString='' then
  //begin
//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//Adoquery2.SQL.Add('insert into kucun_caizepeng042_04 values('''+edit11.Text+''','''+edit8.text+''',convert(int,'''+edit9.text+'''))');
//adoquery2.execsql;
  //end;
end
else
begin
showmessage('该入库单明细表已经存在，请确定');
end;
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('select * from in_caizepeng042_04');

Adoquery2.Open;

Adoquery3.Close;
Adoquery3.SQL.clear;
adoquery3.sql.Add('select * from chao_caizepeng042_04 where 是否超低储额=''是'' or 是否超高储额=''是''');
Adoquery3.ExecSQL;
Adoquery3.Active:=true;
end;
end;

procedure TForm4.Button9Click(Sender: TObject);
begin

if ((edit12.text='') or (edit13.text='')) then
messagebox(form4.Handle,'验收单号或商品编号不能为空','警告',mb_ok+mb_iconwarning)
else
if edit9.text='' then
messagebox(form4.Handle,'请输入原来或修改的进货数量','警告',mb_ok+mb_iconwarning)
else
if ((edit10.text='') or (edit11.text='')) then
messagebox(form4.Handle,'请将货区号和货架号补充上，可以是修改内容也可以不是','警告',mb_ok+mb_iconwarning)
else
begin
if ((edit12.Text<>edit7.text) or (edit13.text<>edit8.Text)) then
messagebox(form4.Handle,'输入不一致，不能进行修改，重新输入','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 验收单号 from in_caizepeng042_04 where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('验收单号').AsString<>'' then

begin

//if ((edit10.text<>'') and (edit11.text<>'')) then
// begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 货区号 from huojia_caizepeng042_04 where 货区号='''+edit10.text+''''+'and 货架号='+''''+edit11.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('货区号').AsString='' then
messagebox(form4.Handle,'所输入的货架号不在货区内，请重新输入','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 商品编号 from dinge_caizepeng042_04 where 商品编号='''+edit8.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('商品编号').AsString='' then
begin
messagebox(form4.Handle,'在商品存储定额中没有该商品的信息，请先在商品存储定额中输入有关信息','警告',mb_ok+mb_iconwarning);
exit;
end;

Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.sql.Add('update in_caizepeng042_04 set 货区号='''+edit10.text+''' where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''');
Adoquery2.sql.Add('update in_caizepeng042_04 set 进货数量=convert(int,'''+edit9.text+''') where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''');
Adoquery2.sql.Add('update in_caizepeng042_04 set 货架号='''+edit11.text+''' where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''');
adoquery2.execsql;

//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//adoquery2.SQL.text:='select 货架号 from kucun_caizepeng042_04 where 货架号='''+edit11.text+''''+'and 商品编号='+''''+edit8.Text+'''';
//adoquery2.open;
//if adoquery2.FieldByName('货架号').AsString='' then
 // begin
//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//Adoquery2.SQL.Add('insert into kucun_caizepeng042_04 values('''+edit11.Text+''','''+edit8.text+''',convert(int,'''+edit9.text+'''))');
//adoquery2.execsql;


 //end;
end;

// end
//  else
//  begin
//if (edit10.text='') and (edit11.text='') then
//begin
//if edit9.text<>'' then
//begin
//Adoquery2.Close;
//Adoquery2.SQL.Clear;
//Adoquery2.sql.Add('update in_caizepeng042_04 set 进货数量=convert(int,'''+edit9.text+''') where 验收单号='''+edit7.text+''''+'and 商品编号='+''''+edit8.text+'''');
//adoquery2.execsql;
//end

//else
//showmessage('////////');
//end
//else
//showmessage('货区号和货架号');
//end;
end
else
begin
showmessage('提示：该入库单明细表不存在');
end;
 end;
end;
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('select * from in_caizepeng042_04');
Adoquery2.Open;

Adoquery3.Close;
Adoquery3.SQL.clear;
adoquery3.sql.Add('select * from chao_caizepeng042_04 where 是否超低储额=''是'' or 是否超高储额=''是''');
Adoquery3.open;

end;

procedure TForm4.Button10Click(Sender: TObject);
begin
if ((edit13.text='') or (edit12.text='')) then
messagebox(form4.Handle,'该2项不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery2.Close;
adoquery2.SQL.clear;
Adoquery2.SQL.Text:='select 验收单号 from in_caizepeng042_04 where 验收单号='''+edit12.text+''' and 商品编号='+''''+edit13.text+'''';
adoquery2.Open;
if adoquery2.FieldByName('验收单号').AsString<>'' then
begin
Adoquery2.Close;
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('delete from in_caizepeng042_04 where 验收单号='''+edit12.text+''' and 商品编号='+''''+edit13.text+'''');
Adoquery2.ExecSQL;
end
else
begin
messagebox(form4.Handle,'该明细单不存在','警告',mb_ok+mb_iconwarning);
end;
end;
adoquery2.Close;
adoquery2.SQL.clear;
adoquery2.SQL.Add('select * from in_caizepeng042_04');
adoquery2.open;

Adoquery3.Close;
Adoquery3.SQL.clear;
adoquery3.sql.Add('select * from chao_caizepeng042_04 where 是否超低储额=''是'' or 是否超高储额=''是''');
Adoquery3.open;

end;

procedure TForm4.Button5Click(Sender: TObject);
begin
if edit6.text='' then
messagebox(form4.Handle,'该2项不能为空','警告',mb_ok+mb_iconwarning)
else
begin
Adoquery1.Close;
adoquery1.SQL.clear;
Adoquery1.SQL.Text:='select 验收单号 from in_master_caizepeng042_04 where 验收单号='''+edit6.text+'''';
adoquery1.Open;
if adoquery1.FieldByName('验收单号').AsString<>'' then
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('delete from in_master_caizepeng042_04 where 验收单号='''+edit6.text+'''');
Adoquery1.ExecSQL;
end
else
begin
messagebox(form4.Handle,'该入库单不存在','警告',mb_ok+mb_iconwarning);
end;
end;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from in_master_caizepeng042_04');
adoquery1.open;

//Adoquery3.Close;
//Adoquery3.SQL.clear;
//adoquery3.sql.Add('select * from chao_caizepeng where 是否超低储额='是' or 是否超高储额='是');
//Adoquery3.open;

end;

end.

⌨️ 快捷键说明

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