uxqwcqk.~pas

工廠採購管理系統

unit Uxqwcqk;

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
  Tfrmxqwcqk = 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;
    Label6: TLabel;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery2: TADOQuery;
    DBText1: TDBText;
    DBText4: TDBText;
    DBText6: TDBText;
    Label3: TLabel;
    DBText2: TDBText;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox1: TCheckBox;
    DBText5: TDBText;
    Label5: TLabel;
    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 CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
    jc:integer;
    cgdhm:string;
  public
    { Public declarations }
  end;

var
  frmxqwcqk: Tfrmxqwcqk;

implementation
uses ufunction,uconst,udm1,ucx;
{$R *.dfm}
procedure tfrmxqwcqk.csh();
var
node:ttreenode;
node1:ttreenode;
begin
TreeView1.Items.Clear;
strsql:='select cgxqdh from cgwl_mail where srrq>=:rq1 and srrq<=:rq2 order by cgxqdh 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('cgxqdh').AsString));
                  adoquery1.Next;
            end;
       end;
adoquery1.Close;
ADOTable1.Filtered:=true;
ADOTable1.Filter:='srrq>='+''''+datetostr(dtp1.Date)+''''+' and srrq<='+''''+datetostr(dtp2.Date)+'''';
end;
procedure Tfrmxqwcqk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmxqwcqk.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
i:integer;
gdhm:string;
begin
cgdhm:='';
if node.level=1 then
    begin
    ADOTable1.Filtered:=true;
    ADOTable1.Filter:='cgxqdh='+''''+trim(node.Text)+'''';
    gdhm:= trim(adotable1.fieldbyname('gdhm').asstring);
    for i:=1 to length(gdhm) do
      begin
         if copy(gdhm,i,1)=',' then
         cgdhm:=cgdhm+QuotedStr(',')
             else
         cgdhm:=cgdhm+copy(gdhm,i,1);
      end;
    end;
checkbox1.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
checkbox6.Checked:=false;
end;

procedure Tfrmxqwcqk.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 Tfrmxqwcqk.dtp1Exit(Sender: TObject);
begin
csh;
end;

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

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

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

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

procedure Tfrmxqwcqk.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
   begin
          strsql:='update ddk set yfpwl=1 where gdhm in ('+''''+cgdhm+''''+')';
          adodel(adoquery1,strsql);
          strsql:='update cgwl_mail set yfpwl=1 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
          strsql:='update cgwl_mail set yfpwl=0 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;

end;

procedure Tfrmxqwcqk.CheckBox3Click(Sender: TObject);
var
strsql1:string;
begin
if checkbox3.Checked then
   begin
          strsql:='update cgwl_mail set yclwl=1 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
          strsql1:='update ddk set yclwl=1 where gdhm in ('+''''+cgdhm+''''+')';
          adodel(adoquery1,strsql1);
   end else begin
          strsql:='update cgwl_mail set yclwl=0 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;
end;

procedure Tfrmxqwcqk.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
   begin
          strsql:='update cgwl_mail set cgjh=1 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
          strsql:='update cgwl_mail set cgjh=0 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;
end;


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

end;

procedure Tfrmxqwcqk.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked then
   begin
          strsql:='update ddk set yscwb=1 where gdhm in ('+''''+cgdhm+''''+')';
          adodel(adoquery1,strsql);
          strsql:='update cgwl_mail set xqwcjs=1 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end else begin
          strsql:='update cgwl_mail set xqwcjs=0 where cgxqdh='+''''+trim(treeview1.Selected.Text)+'''' ;
   end;
adodel(adoquery1,strsql);
adotable1.close;
adotable1.open;

end;

procedure Tfrmxqwcqk.DBGridEh1TitleClick(Column: TColumnEh);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.