unit7.pas

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls, Mask, DBCGrids;

type
  TForm7 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    Button2: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBText3: TDBText;
    dbtext4: TDBText;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    CheckBox7: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    Button3: TButton;
    Button4: TButton;
    edit3: TEdit;
    edit4: TEdit;
    Button5: TButton;
    Button6: TButton;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DBComboBox1: TDBComboBox;
    DBCtrlGrid1: TDBCtrlGrid;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    RadioButton4: TRadioButton;
    DBComboBox4: TDBComboBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBText1: TDBText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure Edit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure edit3Change(Sender: TObject);
    procedure edit4Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
   
    procedure TabSheet3ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure RadioButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
  //procedure check(var x: string;y: string);

    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit8, Unit1, Unit4, maen;

{$R *.DFM}
{procedure check(var x: string;y: string;z:string;m:string);
var
sqlstr:string;
begin
     sqlstr:='where'+z+m+':date';
     with datamodule1.Query1 do
       begin
          close;
          unprepare;
          sql.clear;
          sql.add(y);
          sql.add('from goods.db');
          sql.add(sqlstr);
          parambyname('date').asdatetime:=strtodate(x);
          prepare;
          open;
        end;
end;

procedure check1(var x:string; y:string;z:string;m:string;n:string;o:string);
var
   sqlstr:string;
 begin
     sqlstr:='where '+m+n+':date1 and '+m+o+'date2';
   with datamodule1.Query1 do
      begin
          close;
          unprepare;
          sql.clear;
          sql.add(x);
          sql.add('from goods.db');
          sql.add(sqlstr);
          parambyname('date1').asdatetime:=strtodate(y);
          parambyname('date2').asdatetime:=strtodate(z);
          prepare;
          open;
       end;
 end;
 procedure check2(var x:string;y:string;z:string);
 begin

 end;}

procedure TForm7.Button1Click(Sender: TObject);
begin
   form4.caption:='经理修改密码';
   form4.show;
end;

procedure TForm7.Button2Click(Sender: TObject);
var
sqlstr:string;
begin
    datamodule1.query1.sql.clear;
    sqlstr:='select goodid, ';
    if checkbox1.Checked then
       sqlstr:=sqlstr+'name, ';
    {if checkbox2.checked then
       sqlstr:=sqlstr+'goodid, ';}
    if checkbox3.checked then
       sqlstr:=sqlstr+'lsum, ';
    if checkbox4.checked then
       sqlstr:=sqlstr+'sort, ';
    if checkbox5.Checked then
       sqlstr:=sqlstr+'price, ';
    if checkbox6.Checked then
       sqlstr:=sqlstr+'kind, ' ;
   { if checkbox1.checked=false then
     begin
       if(checkbox2.checked=false) then
        begin
         if(checkbox3.checked=false) then
          showmessage('请选择查询项');
        end;}
   // sqlstr:='select'+' '+goodname+', '+goodid+', '+goodsum;//+'FROM GOODS.DB';

     delete(sqlstr,(length(sqlstr)-1),length(sqlstr));
     //showmessage(sqlstr);
     if ((checkbox1.checked)or(checkbox4.checked)or(checkbox3.checked)
     or(checkbox5.checked)or(checkbox6.checked))then
     begin
     dbgrid1.DataSource:=datamodule1.datasource3;
     with datamodule1.query1 do
     begin
        close;
        unprepare;
        sql.clear;
        sql.add(SQLSTR);
        sql.add('from goods.db');
         datamodule1.table3.active:=true;
        prepare;
        open;
     end ;
      end
      else
       showmessage('请选择查询条件');

   end;





procedure TForm7.FormActivate(Sender: TObject);


begin
datamodule1.table3.active:=false;
datamodule1.Query1.Close;
        checkbox1.checked:=false;
          checkbox3.checked:=false;
          checkbox4.checked:=false;
            checkbox5.checked:=false;
            checkbox6.checked:=false;
            checkbox7.checked:=false;
            checkbox9.checked:=false;
            checkbox10.checked:=false;
            checkbox11.checked:=false;
            checkbox12.checked:=false;
             while not datamodule1.Table5.Eof do begin
              DBComboBox1.Items.Add(datamodule1.Table5.FieldByName('Gid').AsString);
              DBComboBox2.Items.Add(datamodule1.Table5.FieldByName('preprice').AsString);
              DBComboBox3.Items.Add(datamodule1.Table5.FieldByName('siprice').AsString);
              DBComboBox4.Items.Add(datamodule1.Table5.FieldByName('lotprice').AsString);
              datamodule1.Table5.Next;
                                end;

end;



procedure TForm7.Button3Click(Sender: TObject);
var
 sqlstr1:string;

begin
   datamodule1.query1.sql.clear;
    sqlstr1:='select goodid,pdata,odata, ';
    if checkbox7.Checked then
       sqlstr1:=sqlstr1+'name, ';
    {if checkbox8.checked then
       sqlstr1:=sqlstr1+' goodid, ';  }
    if checkbox9.checked then
       sqlstr1:=sqlstr1+' lsum, ';
    if checkbox10.checked then
       sqlstr1:=sqlstr1+' sort, ';
    if checkbox11.Checked then
       sqlstr1:=sqlstr1+' price, ';
    if checkbox12.Checked then
       sqlstr1:=sqlstr1+' kind, ' ;
      delete(sqlstr1,(length(sqlstr1)-1),length(sqlstr1));
      dbgrid2.DataSource:=datamodule1.datasource3;

      if (edit1.text<>'')and(edit2.text='') then
        begin
       with datamodule1.Query1 do
       begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where pdata>=:date');
          parambyname('date').asdatetime:=strtodate(edit1.text);
          prepare;
          open;
           end;
          if datamodule1.query1.fieldbyname('goodid').value=0 then
            showmessage('dd');
       
        end;
      if (edit1.text<>'')and(edit2.text<>'') then
      begin
          with datamodule1.Query1 do
      begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where odata>=:date1 and odata<=:date2');
          parambyname('date1').asdatetime:=strtodate(edit1.text);
          parambyname('date2').asdatetime:=strtodate(edit2.text);
          prepare;
          open;
       end;
       end;
       if (edit1.text='')and(edit2.text<>'') then
      begin
          with datamodule1.Query1 do
       begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where pdata<=:date');
          parambyname('date').asdatetime:=strtodate(edit2.text);
          prepare;
          open;
        end;
       end;
        if (edit3.text<>'')and(edit4.text='') then
      begin
       with datamodule1.Query1 do
       begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where odata>=:date');
          parambyname('date').asdatetime:=strtodate(edit3.text);
          prepare;
          open;
        end;
       end;
      if (edit3.text<>'')and(edit4.text<>'') then
      begin
       with datamodule1.Query1 do
      begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where odata>=:date1 and odata<=:date2');
          parambyname('date1').asdatetime:=strtodate(edit3.Text);
          parambyname('date2').asdatetime:=strtodate(edit4.text);
          prepare;
          open;
       end;
     end;
    if (edit3.text='')and(edit4.text<>'') then
      begin
       with datamodule1.Query1 do
       begin
          close;
          unprepare;
          sql.clear;
          sql.add(sqlstr1);
          sql.add('from goods.db');
          sql.add('where odata<=:date');
          parambyname('date').asdatetime:=strtodate(edit4.text);
          prepare;
          open;
        end;
       end;
      edit1.Text:='';
      edit2.Text:='';
      edit3.Text:='';
      edit4.Text:='';
      edit1.readonly:=false;
      edit2.readonly:=false;
      edit3.readonly:=false;
      edit4.readonly:=false;
      edit1.color:=clwindow;
      edit2.color:=clwindow;
      edit3.color:=clwindow;
      edit4.color:=clwindow;
end;


procedure TForm7.TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
datamodule1.query1.close;
end;

procedure TForm7.Edit2Change(Sender: TObject);
begin

   edit3.readonly:=true;
   edit4.readonly:=true;
   edit3.color:=clactiveborder;
   edit4.color:=clactiveborder;
end;

procedure TForm7.Edit1Change(Sender: TObject);
begin
      edit3.readonly:=true;
      edit4.readonly:=true;
          edit3.color:=clactiveborder;
   edit4.color:=clactiveborder;
end;

procedure TForm7.edit3Change(Sender: TObject);
begin
     edit1.readonly:=true;
       edit2.readonly:=true;
         edit1.color:=clactiveborder;
   edit2.color:=clactiveborder;
end;

procedure TForm7.edit4Change(Sender: TObject);
begin
   edit1.readonly:=true;
       edit2.readonly:=true;
        edit1.color:=clactiveborder;
   edit2.color:=clactiveborder;
end;

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

procedure TForm7.Button5Click(Sender: TObject);
begin
form7.close;
end;

procedure TForm7.PageControl1Change(Sender: TObject);
begin
 datamodule1.query1.close;

end;

procedure TForm7.Button6Click(Sender: TObject);
begin
  form2.show;
  form7.close;
end;



procedure TForm7.TabSheet3ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
    datamodule1.query1.Active:=true;
   //datamodule1.Table1.Active:=true;
 { while not datamodule1.Table5.Eof do begin


  DBComboBox1.Items.Add(datamodule1.Table5.FieldByName('Gid').AsString);

  datamodule1.Table5.Next;

  end;}

end;


procedure TForm7.TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
datamodule1.table3.Active:=false;
end;

procedure TForm7.RadioButton1Click(Sender: TObject);
var
  sql:string;
begin
radiobutton2.Font.Color:=clmenu;
radiobutton3.Font.Color:=clmenu;
radiobutton4.Font.Color:=clmenu;
dbcombobox1.SelText:=sql;
with datamodule1.query2 do
begin
     close;
     unprepare;
     sql.clear;
     sql.add('select *');
     sql.add('from price.db');
     sql.add('where Gid=d');
     parambyname('d').asinteger:=strtoint(dbcombobox1.seltext);
     prepare;
     datamodule1.query2.
     open;
     active:=true;
     end;

end;

end.