unit_query_lr.pas

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

unit Unit_query_lr;

interface

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

type
  Tform_query_lr = class(TForm_jc_child)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label8: TLabel;
    BitBtn_find: TBitBtn;
    BitBtn_quit: TBitBtn;
    DateEdit_begin: TDateEdit;
    DateEdit_end: TDateEdit;
    Edit_jhdh: TEdit;
    Edit_gys: TEdit;
    BitBtn_print: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    procedure BitBtn_quitClick(Sender: TObject);
    procedure BitBtn_findClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn_printClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    sqlstr :string;
  public
    { Public declarations }
  end;

var
  form_query_lr: Tform_query_lr;

implementation

uses Unit_main,unit_get_kh;

{$R *.dfm}

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

procedure Tform_query_lr.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 (t0302>=#'+d_begin+'#) and (t0302<=#'+d_end+'#)';
   //加入销售单号条件查询
   if trim(Edit_jhdh.Text) <> '' then
      str := str + ' and t0301 like '''+trim(Edit_jhdh.Text)+'%''';
   //加入客户条件查询
   if trim(Edit_gys.Text) <> '' then
      str := str + ' and t0304 in (select t0200 from t02 where t0202 like '''+trim(Edit_gys.Text)+'%'')';
   ADOQuery1.Close;
   ADOQuery1.SQL.Text := str;
   ADOQuery1.Open;
end;

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

procedure Tform_query_lr.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_lr.rmf');
   RMReport1.ShowReport;
end;

procedure Tform_query_lr.Button1Click(Sender: TObject);
begin
   inherited;
   form_get_kh.ShowModal;
   if form_get_kh.kh_id=0 then exit;
   Edit_gys.Text:=form_get_kh.kh_mc;
end;

end.