unoticequery.~pas

是分布式粮库程序,是采用Delphi实现的

unit unoticequery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB, ComCtrls, DBCtrls, Buttons, ExtCtrls,
  Grids, DBGrids;

type
  TFnoticequery = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    btnQuery: TBitBtn;
    btnReset: TBitBtn;
    closebitbtn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label7: TLabel;
    unitDataSource: TDataSource;
    notyQuery: TQuery;
    notyDataSource: TDataSource;
    DateTimePicker3: TDateTimePicker;
    Label9: TLabel;
    DateTimePicker4: TDateTimePicker;
    Label10: TLabel;
    DBGrid2: TDBGrid;
    itemQuery: TQuery;
    itemDataSource: TDataSource;
    unitQuery: TQuery;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure notyQueryAfterScroll(DataSet: TDataSet);
    procedure btnResetClick(Sender: TObject);
    procedure closebitbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fnoticequery: TFnoticequery;
   s:string;
   queryitem:string;
implementation
   uses unitdatamodul,global;
{$R *.dfm}

procedure TFnoticequery.FormCreate(Sender: TObject);
begin
    if global.g_user.UnitID=0 then
    begin
    unitquery.Open;
    s:=notyquery.SQL.Text ;
    end else
    begin
    unitquery.Open;
    dblookupcombobox1.KeyValue :=global.g_user.UnitID ;
    dblookupcombobox1.Enabled :=false;
    s:=notyquery.SQL.Text+' and ent_noty.unit_id='+inttostr(global.g_user.UnitID) ;
    end;
    notyQuery.SQL.Clear;
    notyQuery.SQL.Add(s);
    try
    notyquery.Open;
    except
    showmessage('查询错误');
    exit;
    end;


end;

procedure TFnoticequery.btnQueryClick(Sender: TObject);
begin
   queryitem:='';
   if edit1.Text <>'' then
   queryitem:=queryitem+' and noty_no='''+edit1.Text+'''' ;
   if edit2.Text <>'' then
   queryitem:=queryitem+' and authority_no='''+edit2.Text+'''';
   if (combobox1.ItemIndex<>0) and (combobox1.Text <>'') then
     if combobox1.ItemIndex=1 then
      queryitem:=queryitem+' and noty_type=1'
      else
       queryitem:=queryitem+' and noty_type=2';
    if (dblookupcombobox1.KeyValue <>99999)and(dblookupcombobox1.Text <>'')then
     queryitem:=queryitem+' and ent_noty.unit_id='+inttostr(DBLookupComboBox1.KeyValue);
    if edit3.Text <>'' then
    queryitem:=queryitem+' and counterpart='''+edit3.Text+'''';
    if CheckBox1.Checked=True then
    QueryItem:=QueryItem+' and start_time >= '''+datetostr(datetimepicker1.DateTime)+''' and finish_time <='''+datetostr(datetimepicker2.DateTime)+'''';
    if checkbox2.Checked=true then
    QueryItem:=QueryItem+' and input_time between '''+FormatDateTime('YYYY-MM-DD',DateTimePicker3.DateTime)+''' and '''+FormatDateTime('YYYY-MM-DD',DateTimePicker4.DateTime)+'''';

    notyQuery.SQL.Clear;
    if QueryItem<>'' then
    notyQuery.SQL.Add(s+QueryItem) else
    notyquery.SQL.Add(s);

 //    showmessage(notyquery.SQL.Text );
     try
       notyQuery.Open;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;

     if notyquery.RecordCount =0 then
     begin
     itemquery.close;
     showmessage('没有符合条件的通知单！');
     end;
      

end;

procedure TFnoticequery.CheckBox1Click(Sender: TObject);
begin
   if checkbox1.Checked=true then
   begin
   datetimepicker1.Enabled :=true;
   datetimepicker2.Enabled :=true;
   end else
   begin
   datetimepicker1.Enabled :=false;
   datetimepicker2.Enabled :=false;
   end;
end;

procedure TFnoticequery.CheckBox2Click(Sender: TObject);
begin
   if checkbox2.Checked=true then
   begin
   datetimepicker3.Enabled :=true;
   datetimepicker4.Enabled :=true;
   end else
   begin
   datetimepicker3.Enabled :=false;
   datetimepicker4.Enabled :=false;
   end;
end;

procedure TFnoticequery.notyQueryAfterScroll(DataSet: TDataSet);
begin
  itemquery.ParamByName('noty_id').AsString  :=dataset.fieldbyname('noty_id').AsString  ;
  itemquery.Close;
  itemquery.Open; 
end;

procedure TFnoticequery.btnResetClick(Sender: TObject);
begin
   edit1.Text :='';
   edit2.Text :='';
   edit3.Text :='';
   combobox1.ItemIndex:=0;
   
   if global.g_user.UnitID=0 then
   dblookupcombobox1.KeyValue  :=99999;

   checkbox1.Checked :=false;
   checkbox2.Checked :=false;
   datetimepicker1.Enabled :=false;
   datetimepicker2.Enabled :=false;
   datetimepicker3.Enabled :=false;
   datetimepicker4.Enabled :=false;

   notyQuery.SQL.Clear;
   notyquery.SQL.Add(s);
 //  showmessage(notyquery.SQL.Text );
     try
       notyQuery.Open;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;
end;

procedure TFnoticequery.closebitbtnClick(Sender: TObject);
begin
  close;
end;

end.