uqxsz.pas

工廠採購管理系統

unit uqxsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Grids, DBGridEh, RzTabs, ComCtrls, RzButton,
  DB, ADODB;

type
  Tfrmqxsz = class(TForm)
    TreeView1: TTreeView;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    DBGridEh1: TDBGridEh;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    RzBitBtn2: TRzBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    CheckBox1: TCheckBox;
    CheckBox4: TCheckBox;
    GroupBox1: TGroupBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    GroupBox2: TGroupBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox39: TDBCheckBox;
    DBCheckBox40: TDBCheckBox;
    DBCheckBox38: TDBCheckBox;
    DBCheckBox37: TDBCheckBox;
    DBCheckBox36: TDBCheckBox;
    DBCheckBox35: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox41: TDBCheckBox;
    DBCheckBox42: TDBCheckBox;
    DBCheckBox43: TDBCheckBox;
    DBCheckBox44: TDBCheckBox;
    DBCheckBox45: TDBCheckBox;
    DBCheckBox46: TDBCheckBox;
    DBCheckBox71: TDBCheckBox;
    DBCheckBox72: TDBCheckBox;
    CheckBox2: TCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox47: TDBCheckBox;
    DBCheckBox48: TDBCheckBox;
    DBCheckBox49: TDBCheckBox;
    DBCheckBox50: TDBCheckBox;
    DBCheckBox51: TDBCheckBox;
    DBCheckBox52: TDBCheckBox;
    DBCheckBox53: TDBCheckBox;
    DBCheckBox54: TDBCheckBox;
    DBCheckBox73: TDBCheckBox;
    DBCheckBox76: TDBCheckBox;
    DBCheckBox79: TDBCheckBox;
    DBCheckBox80: TDBCheckBox;
    DBCheckBox77: TDBCheckBox;
    DBCheckBox74: TDBCheckBox;
    DBCheckBox62: TDBCheckBox;
    DBCheckBox61: TDBCheckBox;
    DBCheckBox60: TDBCheckBox;
    DBCheckBox59: TDBCheckBox;
    DBCheckBox58: TDBCheckBox;
    DBCheckBox57: TDBCheckBox;
    DBCheckBox56: TDBCheckBox;
    DBCheckBox55: TDBCheckBox;
    DBCheckBox63: TDBCheckBox;
    DBCheckBox64: TDBCheckBox;
    DBCheckBox65: TDBCheckBox;
    DBCheckBox66: TDBCheckBox;
    DBCheckBox67: TDBCheckBox;
    DBCheckBox68: TDBCheckBox;
    DBCheckBox69: TDBCheckBox;
    DBCheckBox70: TDBCheckBox;
    DBCheckBox75: TDBCheckBox;
    DBCheckBox78: TDBCheckBox;
    CheckBox3: TCheckBox;
    GroupBox4: TGroupBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
        node:ttreenode;
        node1:ttreenode;
  public
    { Public declarations }
  end;

var
  frmqxsz: Tfrmqxsz;

implementation
uses uconst,ufunction,udm1;
{$R *.dfm}

procedure Tfrmqxsz.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
adoquery3.Connection:=dm1.ADOConnection1;
strsql:='select distinct jb from sec order by jb asc';
adoexect(adoquery1,strsql);
if not(adoquery1.Recordset.eof and adoquery1.Recordset.BOF) then
   begin
       adoquery1.First;
       treeview1.Items.Clear;
       node:=treeview1.Items.AddFirst(nil,'操作员帐号列表');
       while not adoquery1.Eof do
        begin
              node1:=treeview1.Items.AddChild(node,trim(adoquery1.fieldbyname('jb').AsString));
              strsql:='select * from sec where jb='+''''+trim(adoquery1.fieldbyname('jb').AsString)+''''+'order by dh asc';
              adoexect(adoquery2,strsql);
              if not(adoquery2.Recordset.eof and adoquery2.Recordset.BOF) then
                 begin
                    adoquery2.First;
                    while not adoquery2.Recordset.EOF do
                    begin
                    treeview1.Items.AddChild(node1,trim(adoquery2.fieldbyname('xm').AsString));
                    adoquery2.Next;
                    end;
                 end;
              adoquery1.Next;
       end;
   end;
adoquery1.Close;
adoquery2.Close;
strsql:='select * from user_qxsz order by dh asc';
adoexect(adoquery3,strsql);
adoquery3.Edit;

end;

procedure Tfrmqxsz.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case node.Level of
   0:
   strsql:='select * from user_qxsz order by dh asc';
   1:
   strsql:='select * from user_qxsz where dh in (select dh from sec where jb='+''''+trim(node.Text)+''''+') order by dh asc';
   2:
   strsql:='select * from user_qxsz where dh in (select dh from sec where xm='+''''+trim(node.Text)+''''+') order by dh asc';
   end;
adoexect(adoquery3,strsql);
end;

procedure Tfrmqxsz.RzBitBtn2Click(Sender: TObject);
begin
if adoquery3.State in[dsedit] then
   begin
   if messagebox(handle,'当前尚处于编辑状态,是否需要保存记录？','询问',mb_yesno+mb_iconquestion)=idyes then
      adoquery3.Post
   else
      adoquery3.CancelUpdates;
end;
close;
end;
procedure Tfrmqxsz.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
   begin
   DBCheckBox25.Checked:=true;
   DBCheckBox26.Checked:=true;
   DBCheckBox27.Checked:=true;
   DBCheckBox28.Checked:=true;
   DBCheckBox29.Checked:=true;
   DBCheckBox30.Checked:=true;
   DBCheckBox31.Checked:=true;
   DBCheckBox32.Checked:=true;
   DBCheckBox33.Checked:=true;
   DBCheckBox34.Checked:=true;
   DBCheckBox35.Checked:=true;
   DBCheckBox36.Checked:=true;
   DBCheckBox37.Checked:=true;
   DBCheckBox38.Checked:=true;
   DBCheckBox39.Checked:=true;
   DBCheckBox40.Checked:=true;
   DBCheckBox41.Checked:=true;
   DBCheckBox42.Checked:=true;
   DBCheckBox43.Checked:=true;
   DBCheckBox44.Checked:=true;
   DBCheckBox45.Checked:=true;
   DBCheckBox46.Checked:=true;
   DBCheckBox71.Checked:=true;
   DBCheckBox72.Checked:=true;
   end else begin
   DBCheckBox25.Checked:=false;
   DBCheckBox26.Checked:=false;
   DBCheckBox27.Checked:=false;
   DBCheckBox28.Checked:=false;
   DBCheckBox29.Checked:=false;
   DBCheckBox30.Checked:=false;
   DBCheckBox31.Checked:=false;
   DBCheckBox32.Checked:=false;
   DBCheckBox33.Checked:=false;
   DBCheckBox34.Checked:=false;
   DBCheckBox35.Checked:=false;
   DBCheckBox36.Checked:=false;
   DBCheckBox37.Checked:=false;
   DBCheckBox38.Checked:=false;
   DBCheckBox39.Checked:=false;
   DBCheckBox40.Checked:=false;
   DBCheckBox41.Checked:=false;
   DBCheckBox42.Checked:=false;
   DBCheckBox43.Checked:=false;
   DBCheckBox44.Checked:=false;
   DBCheckBox45.Checked:=false;
   DBCheckBox46.Checked:=false;
   DBCheckBox71.Checked:=false;
   DBCheckBox72.Checked:=false;
   end
end;

procedure Tfrmqxsz.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
   begin
   DBCheckBox47.Checked:=true;
   DBCheckBox48.Checked:=true;
   DBCheckBox49.Checked:=true;
   DBCheckBox50.Checked:=true;
   DBCheckBox51.Checked:=true;
   DBCheckBox52.Checked:=true;
   DBCheckBox53.Checked:=true;
   DBCheckBox54.Checked:=true;
   DBCheckBox55.Checked:=true;
   DBCheckBox56.Checked:=true;
   DBCheckBox57.Checked:=true;
   DBCheckBox58.Checked:=true;
   DBCheckBox59.Checked:=true;
   DBCheckBox60.Checked:=true;
   DBCheckBox61.Checked:=true;
   DBCheckBox62.Checked:=true;
   DBCheckBox63.Checked:=true;
   DBCheckBox64.Checked:=true;
   DBCheckBox65.Checked:=true;
   DBCheckBox66.Checked:=true;
   DBCheckBox67.Checked:=true;
   DBCheckBox68.Checked:=true;
   DBCheckBox69.Checked:=true;
   DBCheckBox70.Checked:=true;
   DBCheckBox73.Checked:=true;
   DBCheckBox74.Checked:=true;
   DBCheckBox75.Checked:=true;
   DBCheckBox76.Checked:=true;
   DBCheckBox77.Checked:=true;
   DBCheckBox78.Checked:=true;
   DBCheckBox79.Checked:=true;
   DBCheckBox80.Checked:=true;
   end else begin
   DBCheckBox47.Checked:=false;
   DBCheckBox48.Checked:=false;
   DBCheckBox49.Checked:=false;
   DBCheckBox50.Checked:=false;
   DBCheckBox51.Checked:=false;
   DBCheckBox52.Checked:=false;
   DBCheckBox53.Checked:=false;
   DBCheckBox54.Checked:=false;
   DBCheckBox55.Checked:=false;
   DBCheckBox56.Checked:=false;
   DBCheckBox57.Checked:=false;
   DBCheckBox58.Checked:=false;
   DBCheckBox59.Checked:=false;
   DBCheckBox60.Checked:=false;
   DBCheckBox61.Checked:=false;
   DBCheckBox62.Checked:=false;
   DBCheckBox63.Checked:=false;
   DBCheckBox64.Checked:=false;
   DBCheckBox65.Checked:=false;
   DBCheckBox66.Checked:=false;
   DBCheckBox67.Checked:=false;
   DBCheckBox68.Checked:=false;
   DBCheckBox69.Checked:=false;
   DBCheckBox70.Checked:=false;
   DBCheckBox73.Checked:=false;
   DBCheckBox74.Checked:=false;
   DBCheckBox75.Checked:=false;
   DBCheckBox76.Checked:=false;
   DBCheckBox77.Checked:=false;
   DBCheckBox78.Checked:=false;
   DBCheckBox79.Checked:=false;
   DBCheckBox80.Checked:=false;
   end
end;

procedure Tfrmqxsz.CheckBox4Click(Sender: TObject);
begin
if checkbox1.Checked then
   begin
   DBCheckBox16.Checked:=true;
   DBCheckBox17.Checked:=true;
   DBCheckBox18.Checked:=true;
   DBCheckBox19.Checked:=true;
   DBCheckBox20.Checked:=true;
   DBCheckBox21.Checked:=true;
   DBCheckBox22.Checked:=true;
   DBCheckBox23.Checked:=true;
   DBCheckBox24.Checked:=true;
   end else begin
   DBCheckBox16.Checked:=false;
   DBCheckBox17.Checked:=false;
   DBCheckBox18.Checked:=false;
   DBCheckBox19.Checked:=false;
   DBCheckBox20.Checked:=false;
   DBCheckBox21.Checked:=false;
   DBCheckBox22.Checked:=false;
   DBCheckBox23.Checked:=false;
   DBCheckBox24.Checked:=false;
   end
end;

procedure Tfrmqxsz.CheckBox1Click(Sender: TObject);
begin
   DBCheckBox2.Checked:=checkbox1.Checked;
   DBCheckBox3.Checked:=checkbox1.Checked;
   DBCheckBox4.Checked:=checkbox1.Checked;
   DBCheckBox5.Checked:=checkbox1.Checked;
   DBCheckBox6.Checked:=checkbox1.Checked;
   DBCheckBox7.Checked:=checkbox1.Checked;
   DBCheckBox8.Checked:=checkbox1.Checked;
   DBCheckBox9.Checked:=checkbox1.Checked;
   DBCheckBox10.Checked:=checkbox1.Checked;
   DBCheckBox11.Checked:=checkbox1.Checked;
   DBCheckBox12.Checked:=checkbox1.Checked;
   DBCheckBox13.Checked:=checkbox1.Checked;
   DBCheckBox14.Checked:=checkbox1.Checked;
   DBCheckBox15.Checked:=checkbox1.Checked;

end;

procedure Tfrmqxsz.FormShow(Sender: TObject);
begin
if jb='采购部' then
   begin
   GroupBox1.Enabled:=false;
   GroupBox2.Enabled:=true;
   GroupBox3.Enabled:=false;
   GroupBox4.Enabled:=false;
   DBGridEh1.ReadOnly:=true;
   end;
if jb='生产部' then
   begin
   GroupBox2.Enabled:=false;
   GroupBox1.Enabled:=true;
   GroupBox3.Enabled:=false;
   GroupBox4.Enabled:=false;
   DBGridEh1.ReadOnly:=true;
   end;
if jb='货仓部' then
   begin
   GroupBox1.Enabled:=false;
   GroupBox3.Enabled:=true;
   GroupBox2.Enabled:=false;
   GroupBox4.Enabled:=false;
   DBGridEh1.ReadOnly:=true;
   end;
if jb='系统维护' then
   begin
   GroupBox1.Enabled:=true;
   GroupBox2.Enabled:=true;
   GroupBox3.Enabled:=true;
   GroupBox4.Enabled:=true;
   DBGridEh1.ReadOnly:=false;
   end;
end;

end.