unit_query_qk.pas

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

unit Unit_query_qk;

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;

type
  Tform_query_qk = 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;
    Button1: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    Label4: TLabel;
    Edit_je: TEdit;
    procedure BitBtn_findClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn_printClick(Sender: TObject);
    procedure BitBtn_quitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
        sqlstr :string;
  public
    { Public declarations }
  end;

var
  form_query_qk: Tform_query_qk;

implementation
  uses Unit_main,unit_get_kh, Unit_input_xs;
{$R *.dfm}

procedure Tform_query_qk.BitBtn_findClick(Sender: TObject);
var d_begin ,d_end ,str :string;
var je:double;
begin
   je:=0;
   str := sqlstr;
   //用变量取开始和结束日期时间
   d_begin := formatdatetime('YYYY-M-DD',DateEdit_begin.Date);
   d_end := formatdatetime('YYYY-M-DD',DateEdit_end.Date);
   //加入日期条件查询
   str := str + ' where  (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;
     //合计欠款金额
   if adoquery1.RecordCount>0 then adoquery1.First;
   while not adoquery1.Eof do
   begin
     je :=je+ADOQuery1.FieldByName('尚欠款').AsFloat;
     adoquery1.Next;
   end;
   Edit_je.Text := floattostr(je);
end;

procedure Tform_query_qk.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;

procedure Tform_query_qk.BitBtn_printClick(Sender: TObject);
begin
  inherited;
   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_qk.rmf');
   RMReport1.ShowReport;
end;

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

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

procedure Tform_query_qk.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
   if ADOQuery1.Active = false then exit;
   if ADOQuery1.RecordCount = 0 then exit;
   form_main.N42.Click;
   form_input_xssk.Edit_dh.Text := ADOQuery1.fieldbyname('t0301').AsString;
   form_input_xssk.BitBtn_find.Click;
end;

end.