uwlkczt.pas

工廠採購管理系統

unit uwlkczt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, Buttons, StdCtrls, DB, ADODB, FR_DSet, FR_DBSet,
  FR_Class;

type
  Tfrmwlkczt = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    RzToolbarButton1: TRzToolbarButton;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADOQuery2wldm: TStringField;
    ADOQuery2bigclass: TStringField;
    ADOQuery2smallclass: TStringField;
    ADOQuery2wlmc: TStringField;
    ADOQuery2wlys: TStringField;
    ADOQuery2wlsh: TStringField;
    ADOQuery2dw: TStringField;
    ADOQuery2ylbm: TStringField;
    ADOQuery2srrq: TDateTimeField;
    ADOQuery2djr: TStringField;
    ADOQuery2aqkc: TBCDField;
    ADOQuery2sykc: TBCDField;
    ADOQuery2yfpkc: TBCDField;
    ADOQuery2sjkc: TBCDField;
    ADOQuery2dj: TFloatField;
    ADOQuery2gysdm: TStringField;
    ADOQuery2node: TMemoField;
    ADOQuery2pym: TStringField;
    ADOQuery2cgdw: TStringField;
    ADOQuery2cgbl: TBCDField;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure dayin();
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwlkczt: Tfrmwlkczt;

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

procedure Tfrmwlkczt.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
if not adoquery2.Active then adoquery2.Open;
strsql:='select classname from wllb where jb=1 order by classname asc';
adoexect(adoquery1,strsql);
if adoquery1.Recordset.EOF and adoquery1.Recordset.bof then exit;
adoquery1.First;
while not adoquery1.Eof do
     begin
     combobox1.Items.Add(trim(adoquery1.fieldbyname('classname').AsString));
     adoquery1.Next;
     end;
adoquery1.Close;
end;

procedure Tfrmwlkczt.ComboBox1Change(Sender: TObject);
var
id:string;
begin
combobox2.Items.Clear;
combobox2.Text:='';
strsql:='select id from wllb where classname='+''''+trim(combobox1.Text)+'''';
adoexect(adoquery1,strsql);
id:=trim(adoquery1.fieldbyname('id').AsString);
strsql:='select classname from wllb where child='+''''+id+''''+' order by classname asc';
adoexect(adoquery1,strsql);
if adoquery1.Recordset.EOF and adoquery1.Recordset.bof then exit;
adoquery1.First;
combobox2.Items.Clear;
while not adoquery1.Eof do
     begin
     combobox2.Items.Add(trim(adoquery1.fieldbyname('classname').AsString));
     adoquery1.Next;
     end;
adoquery1.Close;
edit2.Text:='';
end;

procedure Tfrmwlkczt.RzToolbarButton1Click(Sender: TObject);
begin

gysjc:='';
frmgyslb:=tfrmgyslb.Create(self);
frmgyslb.ShowModal;
edit1.Text:=gysjc;
end;

procedure Tfrmwlkczt.RzBitBtn2Click(Sender: TObject);
begin
close;
end;
procedure tfrmwlkczt.dayin();
begin
strsql:='';
if trim(combobox1.text)<>'' then
   begin
       strsql:='bigclass='+''''+trim(combobox1.Text)+'''';
   end;
if (trim(combobox2.Text)<>'') and (strsql<>'') then
   begin
        strsql:=strsql+' and smallclass='+''''+trim(combobox2.Text)+'''';
   end else if (trim(combobox2.Text)<>'') and (strsql='') then
   begin
        strsql:='smallclass='+''''+trim(combobox2.Text)+'''';
   end;
if (trim(edit1.Text)<>'') and (strsql<>'') then
   begin
        strsql:=strsql+' and gysdm='+''''+trim(edit1.Text)+'''';
   end else if (trim(edit1.Text)<>'') and (strsql='') then
   begin
        strsql:='gysdm='+''''+trim(edit1.Text)+'''';
   end;
adoquery2.Filtered:=true;
adoquery2.Filter:=strsql;
if trim(edit2.Text)<>'' then
   begin
   strsql:='select * from wldmk where pym like'+''''+trim(edit2.Text)+'%'+'''';
   adoexect(adoquery2,strsql);
   if not(adoquery2.Recordset.eof and adoquery2.Recordset.BOF) then exit;
   strsql:='select * from wldmk where wlmc like'+''''+'%'+trim(edit2.Text)+'%'+'''';
   strsql:=strsql+' order by pym asc';
   adoexect(adoquery2,strsql);
   end;
end;
procedure Tfrmwlkczt.RzBitBtn1Click(Sender: TObject);
begin
dayin;
frReport1.DoublePass := True;
frReport1.Clear;
if CheckBox1.Checked=true then
frReport1.LoadFromFile(strpath+'/report/pdqd.frf')
else
frReport1.LoadFromFile(strpath+'/report/wlkc.frf');
frVariables['username']:=username;
frreport1.ShowReport;

end;

procedure Tfrmwlkczt.RzBitBtn3Click(Sender: TObject);
begin
dayin;
frReport1.DoublePass := True;
frReport1.Clear;
if CheckBox1.Checked=true then
frReport1.LoadFromFile(strpath+'/report/pdqd.frf')
else
frReport1.LoadFromFile(strpath+'/report/wlkc.frf');
frreport1.DesignReport;
end;

procedure Tfrmwlkczt.Edit2Change(Sender: TObject);
begin
combobox1.Text:='';
combobox2.Text:='';
edit1.Text:='';
end;

procedure Tfrmwlkczt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ACTION:=CAFREE;
frReport1.Free;
end;

end.