ugdwcqk.pas

工廠採購管理系統

unit Ugdwcqk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, Grids, DBGridEh, ComCtrls, StdCtrls, RzDTP, RzButton,
  ExtCtrls, RzPanel, RzSplit, DBCtrls, FR_DSet, FR_DBSet, FR_Class;

type
  Tfrmgdwcqk = class(TForm)
    RzSizePanel1: TRzSizePanel;
    Panel1: TPanel;
    Panel2: TPanel;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label1: TLabel;
    TreeView1: TTreeView;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery2: TADOQuery;
    DBText1: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    Label3: TLabel;
    DBText2: TDBText;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADOTable1hthm: TStringField;
    ADOTable1gcdh: TStringField;
    ADOTable1khph: TStringField;
    ADOTable1khdm: TStringField;
    ADOTable1cpdm: TStringField;
    ADOTable1siyin: TStringField;
    ADOTable1dds: TBCDField;
    ADOTable1jdrq: TDateTimeField;
    ADOTable1ldrq: TDateTimeField;
    ADOTable1djr: TStringField;
    ADOTable1srrq: TDateTimeField;
    ADOTable1baoz: TStringField;
    ADOTable1bz: TMemoField;
    ADOTable1gdhm: TStringField;
    ADOTable1ycgd: TBooleanField;
    ADOTable1yclwl: TBooleanField;
    ADOTable1yfpwl: TBooleanField;
    ADOTable1ypd: TBooleanField;
    ADOTable1ylwl: TBooleanField;
    ADOTable1yscwb: TBooleanField;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    procedure csh();
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormCreate(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
  private
    { Private declarations }
    jc:integer;
  public
    { Public declarations }
  end;

var
  frmgdwcqk: Tfrmgdwcqk;

implementation
uses ufunction,uconst,udm1,ucx;
{$R *.dfm}
procedure tfrmgdwcqk.csh();
var
node:ttreenode;
node1:ttreenode;
begin
TreeView1.Items.Clear;
strsql:='select distinct gdhm from ddk where ldrq>=:rq1 and ldrq<=:rq2 order by'+
' gdhm asc';
if adoquery1.Active then adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strsql);
adoquery1.Parameters.ParamByName('rq1').Value:=dtp1.Date;
adoquery1.Parameters.ParamByName('rq2').Value:=dtp2.Date;
adoquery1.Open;
if not(adoquery1.Recordset.EOF and adoquery1.Recordset.BOF) then
      begin
            adoquery1.First;
            node:=treeview1.Items.AddFirst(nil,'工单列表');
            while not adoquery1.Eof do
            begin
                  node1:=treeview1.Items.AddChild(node,trim(adoquery1.fieldbyname('gdhm').AsString));
                  strsql:='select distinct gcdh from ddk where gdhm='+''''+trim(adoquery1.fieldbyname('gdhm').AsString)+
                  ''''+'order by gcdh asc';
                  adoexect(adoquery2,strsql);
                  adoquery2.First;
                  while not adoquery2.Eof do
                  begin
                       treeview1.Items.AddChild(node1,trim(adoquery2.fieldbyname('gcdh').AsString));
                       adoquery2.Next;
                  end;
                  adoquery1.Next;
            end;
       end;
adoquery1.Close;
adoquery2.Close;
ADOTable1.Filtered:=true;
ADOTable1.Filter:='ldrq>='+''''+datetostr(dtp1.Date)+''''+' and ldrq<='+''''+datetostr(dtp2.Date)+'''';
end;
procedure Tfrmgdwcqk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmgdwcqk.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case node.Level of
    0:
    jc:=0;
    1:
    begin
    ADOTable1.Filtered:=true;
    ADOTable1.Filter:='gdhm='+''''+trim(node.Text)+'''';
    jc:=1;
    end;

    2:
    begin
    ADOTable1.Filtered:=true;
    ADOTable1.Filter:='gcdh='+''''+trim(node.Text)+'''';
    jc:=2;
    end;

end;
    if adotable1.FieldByName('yclwl').AsBoolean=true then checkbox1.Checked:=true else checkbox1.Checked:=false;
    if adotable1.FieldByName('ycgd').AsBoolean=true then checkbox2.Checked:=true else checkbox2.Checked:=false;
    if adotable1.FieldByName('ypd').AsBoolean=true then checkbox3.Checked:=true else checkbox3.Checked:=false;
    if adotable1.FieldByName('yfpwl').AsBoolean=true then checkbox4.Checked:=true else checkbox4.Checked:=false;
    if adotable1.FieldByName('ylwl').AsBoolean=true then checkbox5.Checked:=true else checkbox5.Checked:=false;
    if adotable1.FieldByName('yscwb').AsBoolean=true then checkbox6.Checked:=true else checkbox6.Checked:=false;
end;

procedure Tfrmgdwcqk.FormCreate(Sender: TObject);
begin
jc:=0;
dtp1.Date:=date-30;
dtp2.Date:=date;
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
adotable1.Connection:=dm1.ADOConnection1;
adotable1.Open;
csh;
end;

procedure Tfrmgdwcqk.dtp1Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmgdwcqk.dtp2Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmgdwcqk.RzBitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrmgdwcqk.RzBitBtn2Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/gdwcqk.frf');
frVariables['username']:=username;
frreport1.ShowReport;
end;

procedure Tfrmgdwcqk.RzBitBtn3Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/gdwcqk.frf');
frVariables['username']:=username;
frreport1.DesignReport;
end;

procedure Tfrmgdwcqk.CheckBox1Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox1.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set yclwl=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yclwl=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set yclwl=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yclwl=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;

end;

procedure Tfrmgdwcqk.CheckBox2Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox2.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set ycgd=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ycgd=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set ycgd=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ycgd=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;
end;

procedure Tfrmgdwcqk.CheckBox3Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox3.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set ypd=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ypd=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set ypd=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ypd=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;
end;

procedure Tfrmgdwcqk.CheckBox4Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox4.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set yfpwl=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yfpwl=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set yfpwl=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yfpwl=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;
end;


procedure Tfrmgdwcqk.CheckBox5Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox5.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set ylwl=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ylwl=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set ylwl=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set ylwl=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;

end;

procedure Tfrmgdwcqk.CheckBox6Click(Sender: TObject);
begin
if jc=0 then exit;
if checkbox6.Checked then
   begin
       if jc=1 then
          strsql:='update ddk set yscwb=1 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yscwb=1 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
       if jc=1 then
          strsql:='update ddk set yscwb=0 where gdhm='+''''+trim(treeview1.Selected.Text)+''''
       else
          strsql:='update ddk set yscwb=0 where gcdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;

end;

end.