ucgjh_lb.pas

工廠採購管理系統

unit ucgjh_lb;

interface

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

type
  Tfrmcgjh_lb = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TBooleanField;
    ADOQuery1DSDesigner6: TBooleanField;
    ADOQuery1DSDesigner7: TStringField;
    ADOQuery1DSDesigner8: TStringField;
    ADOQuery1DSDesigner9: TStringField;
    ADOQuery1DSDesigner10: TStringField;
    ADOQuery1DSDesigner11: TStringField;
    ADOQuery1DSDesigner12: TBCDField;
    ADOQuery1DSDesigner13: TBCDField;
    ADOQuery1DSDesigner14: TStringField;
    ADOQuery1DSDesigner15: TStringField;
    ADOQuery1DSDesigner16: TDateTimeField;
    ADOQuery1DSDesigner17: TDateTimeField;
    ADOQuery1DSDesigner18: TMemoField;
    Label4: TLabel;
    ComboBox2: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure csh();
    procedure FormCreate(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcgjh_lb: Tfrmcgjh_lb;

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

procedure Tfrmcgjh_lb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure tfrmcgjh_lb.csh();
begin
strsql:='select * from view_cgjhlb where 计划日期>=:rq1 and 计划日期<=:rq2';
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;
strsql:='select cgxqdh from cgwl_mail where srrq>=:rq1 and srrq<=:rq2 order'+
' by cgxqdh asc';
if adoquery2.Active then adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(strsql);
adoquery2.Parameters.ParamByName('rq1').Value:=dtp1.Date;
adoquery2.Parameters.ParamByName('rq2').Value:=dtp2.Date;
adoquery2.Open;
if not(adoquery2.Recordset.EOF and adoquery2.Recordset.BOF) then begin
   adoquery2.First;
   ComboBox2.Items.Clear;
   while not adoquery2.Eof do
        begin
             ComboBox2.Items.Add(adoquery2.fieldbyname('cgxqdh').AsString);
             adoquery2.Next;
        end;
   end;
adoquery2.Close;
end;
procedure Tfrmcgjh_lb.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
dtp1.Date:=date-30;
dtp2.Date:=date;
csh;
end;

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

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

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

procedure Tfrmcgjh_lb.ComboBox1Click(Sender: TObject);
begin
strsql:='select * from view_cgjhlb where 采购计划单号='+''''+trim(combobox1.Text)+'''';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcgjh_lb.RzBitBtn2Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/cgjh_lb.frf');
frVariables['username']:=username;
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;
end;

procedure Tfrmcgjh_lb.RzBitBtn1Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/cgjh_lb.frf');
form3.frreport1.DesignReport;
end;

procedure Tfrmcgjh_lb.RzBitBtn3Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
end;

procedure Tfrmcgjh_lb.ComboBox2Change(Sender: TObject);
begin
strsql:='select * from view_cgjhlb where 采购需求单号='+''''+trim(combobox2.Text)+'''';
adoexect(adoquery1,strsql);
strsql:='select * from cgjh_main where cgxqdh='+''''+trim(combobox2.Text)+''''+'order by cgjhdh asc';
adoexect(adoquery2,strsql);
if not(adoquery2.Recordset.EOF and adoquery2.Recordset.BOF) then
    begin
       adoquery2.First;
       combobox1.Items.Clear;
       while not adoquery2.Eof do
           begin
                combobox1.Items.Add(adoquery2.fieldbyname('cgjhdh').AsString);
                adoquery2.Next;
           end;
    end;
adoquery2.Close;
end;

procedure Tfrmcgjh_lb.DBGridEh1TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

end.