dzbb.pas

一个仓库管理中的子系统－－采购子系统

unit dzbb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls;

type
  TdzbbForm = class(TForm)
    GroupBox1: TGroupBox;
    rwmcCheck: TCheckBox;
    yxnxCheck: TCheckBox;
    lshCheck: TCheckBox;
    GroupBox2: TGroupBox;
    cpmcCheck: TCheckBox;
    cpbhCheck: TCheckBox;
    xhggCheck: TCheckBox;
    GroupBox3: TGroupBox;
    kcslCheck: TCheckBox;
    xcgslCheck: TCheckBox;
    cgslhsCheck: TCheckBox;
    GroupBox4: TGroupBox;
    bjsjCheck: TCheckBox;
    bjhgsjCheck: TCheckBox;
    bjhgslCheck: TCheckBox;
    sqbidCheck: TCheckBox;
    bzrCheck: TCheckBox;
    shrCheck: TCheckBox;
    pzrCheck: TCheckBox;
    bzrqCheck: TCheckBox;
    shsjCheck: TCheckBox;
    pzsjCheck: TCheckBox;
    jldwCheck: TCheckBox;
    sqslCheck: TCheckBox;
    gjjeCheck: TCheckBox;
    sccjCheck: TCheckBox;
    jhyCheck: TCheckBox;
    sqsjCheck: TCheckBox;
    sqdwCheck: TCheckBox;
    sjcgsccjCheck: TCheckBox;
    hg_flagCheck: TCheckBox;
    ycdhsjCheck: TCheckBox;
    cgfsCheck: TCheckBox;
    qtCheck: TCheckBox;
    bzCheck: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    btqxBtn: TBitBtn;
    sqqxBtn: TBitBtn;
    ssqxBtn: TBitBtn;
    rsqxBtn: TBitBtn;
    btCancelBtn: TBitBtn;
    sqCancelBtn: TBitBtn;
    ssCancelBtn: TBitBtn;
    rsCancelBtn: TBitBtn;
    StatusBar1: TStatusBar;
    GroupBox5: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure btqxBtnClick(Sender: TObject);
    procedure btCancelBtnClick(Sender: TObject);
    procedure sqqxBtnClick(Sender: TObject);
    procedure ssqxBtnClick(Sender: TObject);
    procedure rsqxBtnClick(Sender: TObject);
    procedure sqCancelBtnClick(Sender: TObject);
    procedure rsCancelBtnClick(Sender: TObject);
    procedure ssCancelBtnClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
  procedure  writetable(fieldname:string;dis_flag:string);
    { Public declarations }
  end;

var
  dzbbForm: TdzbbForm;

implementation

uses Datamodule, cghzbcx;


{$R *.DFM}

procedure TdzbbForm.writetable(fieldname:string;dis_flag:string);
begin
   datamodule1.PublicQuery1.RequestLive:=True;
   with datamodule1.PublicQuery1 do
   begin
   sql.Clear;
   sql.Add('select * From dbo.TableInformation');
   sql.Add('where FieldsName='+''''+fieldname+'''');
   prepare;
   open;
   edit;
   FieldByname('display_flag').asstring:=dis_flag;
   post;
   close;
   end;
   datamodule1.PublicQuery1.RequestLive:=False;
end;

procedure TdzbbForm.BitBtn1Click(Sender: TObject);
begin
   if rwmcCheck.Checked then
   writeTable('rwmc','1')
   else
   writeTable('rwmc','0');

   if yxnxCheck.Checked then
   writeTable('yxnx','1')
   else
   writeTable('yxnx','0');

   if lshcheck.Checked then
   writeTable('lsh','1')
   else
   writeTable('lsh','0');

   if sqbidcheck.Checked then
   writeTable('sqbid','1')
   else
   writeTable('sqbid','0');

   if bzrcheck.Checked then
   writeTable('bzr','1')
   else
   writeTable('bzr','0');

   if shrcheck.Checked then
   writeTable('shr','1')
   else
   writeTable('shr','0');

   if pzrcheck.Checked then
   writeTable('pzr','1')
   else
   writeTable('pzr','0');

   if bzrqcheck.Checked then
   writeTable('bzrq','1')
   else
   writeTable('bzrq','0');

   if shsjcheck.Checked then
   writeTable('shrq','1')
   else
   writeTable('shrq','0');

   if pzsjcheck.Checked then
   writeTable('pzrq','1')
   else
   writeTable('pzrq','0');

   if cpmccheck.Checked then
   writeTable('cpmc','1')
   else
   writeTable('cpmc','0');

   if xhggcheck.Checked then
   writeTable('xhgg','1')
   else
   writeTable('xhgg','0');

   if jldwcheck.Checked then
   writeTable('sldw','1')
   else
   writeTable('sldw','0');

   if sqslcheck.Checked then
   writeTable('sbsl','1')
   else
   writeTable('sbsl','0');

   if gjjecheck.Checked then
   writeTable('gjje','1')
   else
   writeTable('gjje','0');

   if sqbidcheck.Checked then
   writeTable('sqbid','1')
   else
   writeTable('sqbid','0');

   if sccjcheck.Checked then
   writeTable('sccj','1')
   else
   writeTable('sccj','0');

   if cpbhcheck.Checked then
   writeTable('cpbh','1')
   else
   writeTable('cpbh','0');

   if kcslcheck.Checked then
   writeTable('kcsl','1')
   else
   writeTable('kcsl','0');

   if xcgslcheck.Checked then
   writeTable('sxsl','1')
   else
   writeTable('sxsl','0');

   if cgslhscheck.Checked then
   writeTable('cgslhs','1')
   else
   writeTable('cgslhs','0');

   if sqsjcheck.Checked then
   writeTable('sbrq','1')
   else
   writeTable('sbrq','0');

   if sqdwcheck.Checked then
   writeTable('xqdw','1')
   else
   writeTable('xqdw','0');

   if jhycheck.Checked then
   writeTable('jhy','1')
   else
   writeTable('jhy','0');

   if cgfscheck.Checked then
   writeTable('cgfs','1')
   else
   writeTable('cgfs','0');

   if hg_flagcheck.Checked then
   writeTable('hg_flag','1')
   else
   writeTable('hg_flag','0');

   if ycdhsjcheck.Checked then
   writeTable('ycdhsj','1')
   else
   writeTable('ycdhsj','0');

   if sjcgsccjcheck.Checked then
   writeTable('sjcgsccj','1')
   else
   writeTable('sjcgsccj','0');

   if bjsjcheck.Checked then
   writeTable('bjsj','1')
   else
   writeTable('bjsj','0');

   if bjhgsjcheck.Checked then
   writeTable('bjhgsj','1')
   else
   writeTable('bjhgsj','0');

   if bjhgslcheck.Checked then
   writeTable('bjhgsl','1')
   else
   writeTable('bjhgsl','0');

   if qtcheck.Checked then
   writeTable('qt','1')
   else
   writeTable('qt','0');

   if bzcheck.Checked then
   writeTable('bz','1')
   else
   writeTable('bz','0');
end;

procedure TdzbbForm.btqxBtnClick(Sender: TObject);
begin
   rwmcCheck.Checked:=True;
   yxnxCheck.Checked:=True;
   lshcheck.Checked:=True;
   sqbidcheck.Checked:=True;
   bzrcheck.Checked:=True;
   shrcheck.Checked:=True;
   pzrcheck.Checked:=True;
   bzrqcheck.Checked:=True;
   shsjcheck.Checked:=True;
   pzsjcheck.Checked:=True;
end;

procedure TdzbbForm.btCancelBtnClick(Sender: TObject);
begin
   rwmcCheck.Checked:=False;
   yxnxCheck.Checked:=False;
   lshcheck.Checked:=False;
   sqbidcheck.Checked:=False;
   bzrcheck.Checked:=False;
   shrcheck.Checked:=False;
   pzrcheck.Checked:=False;
   bzrqcheck.Checked:=False;
   shsjcheck.Checked:=False;
   pzsjcheck.Checked:=False;
end;

procedure TdzbbForm.sqqxBtnClick(Sender: TObject);
begin
 cpmccheck.Checked:=True;
 xhggcheck.Checked:=True;
 jldwcheck.Checked:=True;
 sqslcheck.Checked:=True;
 gjjecheck.Checked:=True;
 sccjcheck.Checked:=True;
 cpbhcheck.Checked:=True;
end;

procedure TdzbbForm.ssqxBtnClick(Sender: TObject);
begin
    kcslcheck.Checked:=True;
    xcgslcheck.Checked:=True;
    cgslhscheck.Checked:=True;
    sqsjcheck.Checked:=True;
    sqdwcheck.Checked:=True;
    jhycheck.Checked:=True;
    cgfscheck.Checked:=True;
    hg_flagcheck.Checked:=True;
    ycdhsjcheck.Checked:=True;
    sjcgsccjcheck.Checked:=True;
end;

procedure TdzbbForm.rsqxBtnClick(Sender: TObject);
begin
   bjsjcheck.Checked:=True;
   bjhgsjcheck.Checked:=True;
   bjhgslcheck.Checked:=True;
   qtcheck.Checked:=True;
   bzcheck.Checked:=True;
end;

procedure TdzbbForm.sqCancelBtnClick(Sender: TObject);
begin
   cpmccheck.Checked:=False;
   xhggcheck.Checked:=False;
   jldwcheck.Checked:=False;
   sqslcheck.Checked:=False;
   gjjecheck.Checked:=False;
   sccjcheck.Checked:=False;
   cpbhcheck.Checked:=False;
end;

procedure TdzbbForm.rsCancelBtnClick(Sender: TObject);
begin
    bjsjcheck.Checked:=False;
   bjhgsjcheck.Checked:=False;
   bjhgslcheck.Checked:=False;
   qtcheck.Checked:=False;
   bzcheck.Checked:=False;
end;

procedure TdzbbForm.ssCancelBtnClick(Sender: TObject);
begin
     kcslcheck.Checked:=False;
    xcgslcheck.Checked:=False;
    cgslhscheck.Checked:=False;
    sqsjcheck.Checked:=False;
    sqdwcheck.Checked:=False;
    jhycheck.Checked:=False;
    cgfscheck.Checked:=False;
    hg_flagcheck.Checked:=False;
    ycdhsjcheck.Checked:=False;
    sjcgsccjcheck.Checked:=False;
end;

procedure TdzbbForm.SpeedButton1Click(Sender: TObject);
begin
   rwmcCheck.Checked:=True;
   lshcheck.Checked:=True;
   sqbidcheck.Checked:=True;
   jhycheck.Checked:=True;
   cpmccheck.Checked:=True;
   xhggcheck.Checked:=True;
   jldwcheck.Checked:=True;
   sqslcheck.Checked:=True;
   gjjecheck.Checked:=True;
   xcgslcheck.Checked:=True;
   cpbhcheck.Checked:=True;
end;

procedure TdzbbForm.SpeedButton4Click(Sender: TObject);
begin
   rwmcCheck.Checked:=False;   // 1 默认选择A的取消
   lshcheck.Checked:=False;    // 2
   sqbidcheck.Checked:=False;  // 3
   cpmccheck.Checked:=False;   // 4
   xhggcheck.Checked:=False;   // 5
   jldwcheck.Checked:=False;   // 6
   sqslcheck.Checked:=False;   // 7
   gjjecheck.Checked:=False;    //8
   cpbhcheck.Checked:=False;    //9
   xcgslcheck.Checked:=False;   //10
   jhycheck.Checked:=False;     //11


   cgslhscheck.Checked:=False;  //12
   kcslcheck.Checked:=False;    //13
   sqsjcheck.Checked:=False;    //14
   ycdhsjcheck.Checked:=False;  //15
   sccjcheck.Checked:=False;    //16
   cgfscheck.Checked:=False;    //17
   sjcgsccjcheck.Checked:=False;//18
   qtcheck.Checked:=False;      //19
   bzcheck.Checked:=False;     //20
   bjsjcheck.Checked:=False;   //21
   hg_flagcheck.Checked:=False; //22
   bjhgsjcheck.Checked:=False;  //23
   bjhgslcheck.Checked:=False;  //24


   sqdwcheck.Checked:=False;    //25
   yxnxCheck.Checked:=False;    //26
   bzrcheck.Checked:=False;     //27
   shrcheck.Checked:=False;     //28
   pzrcheck.Checked:=False;     //29
   bzrqcheck.Checked:=False;    //30
   shsjcheck.Checked:=False;    //31
   pzsjcheck.Checked:=False;    //32











end;

procedure TdzbbForm.SpeedButton2Click(Sender: TObject);
begin
   cgslhscheck.Checked:=true;  //12
   kcslcheck.Checked:=true;    //13
   sqsjcheck.Checked:=true;    //14
   ycdhsjcheck.Checked:=true;  //15
   sccjcheck.Checked:=true;    //16
   cgfscheck.Checked:=true;    //17
   sjcgsccjcheck.Checked:=true;//18
   qtcheck.Checked:=true;      //19
   bzcheck.Checked:=true;     //20
   bjsjcheck.Checked:=true;   //21
   hg_flagcheck.Checked:=true; //22
   bjhgsjcheck.Checked:=true;  //23
   bjhgslcheck.Checked:=true;  //24
end;

procedure TdzbbForm.SpeedButton3Click(Sender: TObject);
begin
   sqdwcheck.Checked:=true;    //25
   yxnxCheck.Checked:=true;    //26
   bzrcheck.Checked:=true;     //27
   shrcheck.Checked:=true;     //28
   pzrcheck.Checked:=true;     //29
   bzrqcheck.Checked:=true;    //30
   shsjcheck.Checked:=true;    //31
   pzsjcheck.Checked:=true;    //32
end;

end.