unit_query_cgsh.pas

为某绣花厂做的管理系统源码

unit Unit_query_cgsh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit_jc_child, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids,
  DBCtrls, ToolEdit, RXDBCtrl, Mask, ExtCtrls, RM_dset, RM_dbset,
  RM_PDBGrid, RM_class;

type
  Tform_query_cgsh = class(TForm_jc_child)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    BitBtn_find: TBitBtn;
    Label2: TLabel;
    Label7: TLabel;
    BitBtn_quit: TBitBtn;
    Label1: TLabel;
    DateEdit_begin: TDateEdit;
    DateEdit_end: TDateEdit;
    Label8: TLabel;
    Edit_jhdh: TEdit;
    Edit_czy: TEdit;
    ADOQuery2: TADOQuery;
    BitBtn_print: TBitBtn;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    procedure BitBtn_findClick(Sender: TObject);
    procedure BitBtn_quitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn_printClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
    sqlstr :string;
  public
    { Public declarations }
  end;

var
  form_query_cgsh: Tform_query_cgsh;

implementation

uses Unit_main, Unit_input_cgsh;

{$R *.dfm}

procedure Tform_query_cgsh.BitBtn_findClick(Sender: TObject);
var d_begin ,d_end ,str :string;
begin
   str := sqlstr;
   //用变量取开始和结束日期时间
   d_begin := formatdatetime('YYYY-M-DD',DateEdit_begin.Date);
   d_end := formatdatetime('YYYY-M-DD',DateEdit_end.Date);
   //加入日期条件查询
   str := str + ' and (t1002>=#'+d_begin+'#) and (t1002<=#'+d_end+'#)';
   //加入入库单号条件查询
   if trim(Edit_jhdh.Text) <> '' then
      str := str + ' and t1001 like '''+trim(Edit_jhdh.Text)+'%''';
   //加入操作员条件查询
   if trim(Edit_czy.Text) <> '' then
      str := str + ' and t1003 like '''+trim(Edit_czy.Text)+'%''';
   ADOQuery1.Close;
   adoquery1.SQL.Text:=str;
   ADOQuery1.Open;
end;

procedure Tform_query_cgsh.BitBtn_quitClick(Sender: TObject);
begin
   self.Close;
end;

procedure Tform_query_cgsh.FormShow(Sender: TObject);
begin
  inherited;
   sqlstr := ADOQuery1.SQL.Text;
end;

procedure Tform_query_cgsh.BitBtn_printClick(Sender: TObject);
begin
   if not ADOQuery1.Active then exit;
   if ADOQuery1.RecordCount = 0 then exit;
   RMVariables['d_begin'] := DateEdit_begin.Date;
   RMVariables['d_end'] := DateEdit_end.Date;
   RMReport1.LoadFromFile('Unit_query_cgsh.rmf');
   RMReport1.ShowReport;
end;

procedure Tform_query_cgsh.DBGrid1DblClick(Sender: TObject);
begin
   if ADOQuery1.Active = false then exit;
   if ADOQuery1.RecordCount = 0 then exit;
   form_main.N44.Click;
   form_input_cgsh.Edit_dh.Text := ADOQuery1.fieldbyname('t1001').AsString;
   form_input_cgsh.BitBtn_find.Click;
end;

end.