?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -