unit_query_xs.pas

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

unit Unit_query_xs;

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_xs = class(TForm_jc_child)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label8: TLabel;
    BitBtn_find: TBitBtn;
    BitBtn_quit: TBitBtn;
    DateEdit_begin: TDateEdit;
    DateEdit_end: TDateEdit;
    Edit_jhdh: TEdit;
    Edit_gys: TEdit;
    Edit_ywy: TEdit;
    Edit_czy: TEdit;
    ComboBox_fkfs: TComboBox;
    BitBtn_print: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    Label10: TLabel;
    Edit_je: TEdit;
    SpeedButton1: TSpeedButton;
    procedure BitBtn_quitClick(Sender: TObject);
    procedure BitBtn_findClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn_printClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    sqlstr :string;
  public
    { Public declarations }
  end;

var
  form_query_xs: Tform_query_xs;

implementation

uses Unit_main, Unit_input_xs,unit_get_kh;

{$R *.dfm}

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

procedure Tform_query_xs.BitBtn_findClick(Sender: TObject);
var d_begin ,d_end ,str :string;
   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 + ' 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 (select t0202 from t02 where t0200=t03.t0304) like '''+trim(Edit_gys.Text)+'%''';
   //加入付款方式条件查询
   if trim(ComboBox_fkfs.Text) <> '' then
      str := str + ' and t0305 like '''+trim(ComboBox_fkfs.Text)+'%''';
   //加入业务员条件查询
   if trim(Edit_ywy.Text) <> '' then
      str := str + ' and t0303 like '''+trim(Edit_ywy.Text)+'%''';
   //加入操作员条件查询
   if trim(Edit_czy.Text) <> '' then
      str := str + ' and t0307 like '''+trim(Edit_czy.Text)+'%''';
   
   ADOQuery1.Close;
   ADOQuery1.SQL.Text := str;
   ADOQuery1.Open;

   //合计金额
   while not ADOQuery1.Eof do
   begin
      je :=je+ADOQuery1.FieldByName('t0404').AsInteger;
      ADOQuery1.Next;
   end;
   Edit_je.Text := floattostr(je);
end;

procedure Tform_query_xs.FormShow(Sender: TObject);
begin
  inherited;
   sqlstr := ADOQuery1.SQL.Text;
   //产生付款方式列表
   ADOQuery2.close;
   ADOQuery2.SQL.text := 'select * from t13';
   ADOQuery2.Open;
   while not ADOQuery2.Eof do
   begin
      ComboBox_fkfs.items.Add(ADOQuery2.fieldbyname('t1301').AsString);
      ADOQuery2.Next;
   end; 
end;

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

procedure Tform_query_xs.DBGrid1DblClick(Sender: TObject);
begin
   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;

procedure Tform_query_xs.SpeedButton1Click(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.