uqualityquery.pas

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

unit uqualityquery;

interface

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

type
  TFqualityquery = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Panel1: TPanel;
    Bevel1: TBevel;
    Label5: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    Label6: TLabel;
    Label7: TLabel;
    ComboKind: TComboBox;
    ComboClass: TComboBox;
    cmbitem5: TComboBox;
    EditItem5: TEdit;
    Label10: TLabel;
    Label8: TLabel;
    cmbMoisture: TComboBox;
    EditMoisture: TEdit;
    cmbImpurity: TComboBox;
    EditImpurity: TEdit;
    Label9: TLabel;
    Label11: TLabel;
    cmbitem1: TComboBox;
    EditItem1: TEdit;
    Label12: TLabel;
    cmbitem2: TComboBox;
    EditItem2: TEdit;
    Label19: TLabel;
    cmbitem3: TComboBox;
    edititem3: TEdit;
    cmbitem4: TComboBox;
    edititem4: TEdit;
    Label20: TLabel;
    btnQuery: TBitBtn;
    btnReset: TBitBtn;
    closebitbtn: TBitBtn;
    unitQuery: TQuery;
    siteQuery: TQuery;
    depotQuery: TQuery;
    foodQuery: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource5: TDataSource;
    Query1: TQuery;
    DataSource4: TDataSource;
    Query2: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TDateTimeField;
    Query1BDEDesigner7: TIntegerField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TFloatField;
    Query1BDEDesigner11: TFloatField;
    Query1BDEDesigner12: TStringField;
    Query1BDEDesigner13: TStringField;
    Query1BDEDesigner14: TFloatField;
    Query1BDEDesigner15: TFloatField;
    Query1BDEDesigner16: TFloatField;
    Query1BDEDesigner17: TFloatField;
    Query1BDEDesigner18: TFloatField;
    Query1BDEDesigner19: TFloatField;
    Query1BDEDesigner20: TFloatField;
    Query1BDEDesigner21: TStringField;
    fdpidQuery: TQuery;
    ComboBox1: TComboBox;
    fdpositionquery: TQuery;
    BitBtn1: TBitBtn;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Label18: TLabel;
    Label24: TLabel;
    Edit2: TEdit;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit3: TEdit;
    ComboBox5: TComboBox;
    Edit4: TEdit;
    ComboBox6: TComboBox;
    Edit5: TEdit;
    ComboBox7: TComboBox;
    Edit6: TEdit;
    Label29: TLabel;
    Edit7: TEdit;
    ComboBox8: TComboBox;
    Label30: TLabel;
    Label13: TLabel;
    ComboBox9: TComboBox;
    Edit8: TEdit;
    ComboBox10: TComboBox;
    Edit9: TEdit;
    Query1BDEDesigner22: TFloatField;
    procedure closebitbtnClick(Sender: TObject);
    procedure unitQueryAfterScroll(DataSet: TDataSet);
    procedure siteQueryAfterScroll(DataSet: TDataSet);
    procedure depotQueryAfterScroll(DataSet: TDataSet);
    procedure EditMoistureKeyPress(Sender: TObject; var Key: Char);
    procedure EditImpurityKeyPress(Sender: TObject; var Key: Char);
    procedure EditItem1KeyPress(Sender: TObject; var Key: Char);
    procedure EditItem2KeyPress(Sender: TObject; var Key: Char);
    procedure edititem3KeyPress(Sender: TObject; var Key: Char);
    procedure edititem4KeyPress(Sender: TObject; var Key: Char);
    procedure EditItem5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboKindChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure cmbMoistureChange(Sender: TObject);
    procedure cmbImpurityChange(Sender: TObject);
    procedure cmbitem1Change(Sender: TObject);
    procedure cmbitem2Change(Sender: TObject);
    procedure cmbitem3Change(Sender: TObject);
    procedure cmbitem4Change(Sender: TObject);
    procedure cmbitem5Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure ComboBox10Change(Sender: TObject);
    
  private
  procedure reset;
    { Private declarations }
  public
  procedure DisableAll(mode:boolean);
    { Public declarations }
   end;
var
  Fqualityquery: TFqualityquery;
   S: string;
   queryitem:string;
implementation
  uses unitdatamodul,global,uexcel;
{$R *.dfm}

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

procedure TFqualityquery.unitQueryAfterScroll(DataSet: TDataSet);
begin
    SiteQuery.ParamByName('UnitId').AsInteger:=DataSet.FieldByName('UNIT_ID').AsInteger;
    SiteQuery.Close;
    SiteQuery.Open;
    if DataSet.FieldByName('UNIT_ID').AsInteger= 99999997 then
           DBLookupComboBox2.Enabled:=false
    else   DBLookupComboBox2.Enabled:=true;
           DBLookupComboBox2.KeyValue:=99999998;
end;

procedure TFqualityquery.siteQueryAfterScroll(DataSet: TDataSet);
begin
    depotQuery.ParamByName('SiteId').AsInteger:=DataSet.FieldByName('site_ID').AsInteger;
    depotquery.ParamByName('unitid').AsInteger:=dataset.fieldbyname('unit_id').AsInteger ;
    depotQuery.Close;
    depotQuery.Open;
    if DataSet.FieldByName('site_ID').AsInteger=99999998 then
           DBLookupComboBox3.Enabled:=false
    else   DBLookupComboBox3.Enabled:=true;
           DBLookupComboBox3.KeyValue:=99999999;
end;

procedure TFqualityquery.depotQueryAfterScroll(DataSet: TDataSet);
begin
    if DataSet.FieldByName('depot_ID').AsInteger=99999999 then
    combobox1.Enabled :=false
    else
    begin
    combobox1.Enabled:=true;
    combobox1.Items.Clear ;
    fdpositionquery.ParamByName('unit_id').AsInteger :=dataset.fieldbyname('unit_id').AsInteger ;
    fdpositionquery.ParamByName('site_id').AsInteger :=dataset.fieldbyname('site_id').AsInteger ;
    fdpositionquery.ParamByName('depot_id').AsInteger :=dataset.fieldbyname('depot_id').AsInteger ;
    fdpositionquery.Close;
    fdpositionquery.Open;
    fdpositionquery.First ;
    while not fdpositionquery.Eof do
    begin
    combobox1.Items.Add(fdpositionquery.fieldbyname('name').AsString);
    fdpositionquery.Next;
    end;
    end;
end;

procedure TFqualityquery.EditMoistureKeyPress(Sender: TObject;
  var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.EditImpurityKeyPress(Sender: TObject;
  var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.EditItem1KeyPress(Sender: TObject; var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.EditItem2KeyPress(Sender: TObject; var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.edititem3KeyPress(Sender: TObject; var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.edititem4KeyPress(Sender: TObject; var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.EditItem5KeyPress(Sender: TObject; var Key: Char);
begin
       if (Key<>'0') and (Key<>'1') and (Key<>'2') and (Key<>'3') and (Key<>'4')and
        (Key<>'5') and (Key<>'6') and (Key<>'7') and (Key<>'8') and (Key<>'9')  and
         (Key<>'.') and (ord(Key)<>8) then
       Key:=chr(0);
end;

procedure TFqualityquery.ComboKindChange(Sender: TObject);
begin
  ComboClass.Items.Clear;
  comboclass.Text :='';
  DisableAll(False);
  cmbMoisture.Enabled := true;
  combobox2.Enabled :=true;
  cmbImpurity.Enabled := true;
  combobox4.Enabled :=true;
  EditMoisture.Enabled := true;
  edit1.Enabled :=true;
  EditImpurity.Enabled := true;
  edit3.Enabled :=true;
  case ComboKind.ItemIndex of
    0: // 大米
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('特等');
         ComboClass.Items.Add('标一');
         ComboClass.Items.Add('标二');
         ComboClass.Items.Add('标三');
         cmbitem5.Enabled := true;
         EditItem5.Enabled := true;
         combobox3.Enabled :=true;
         edit2.Enabled :=true;
         cmbitem2.Enabled := true;
         EditItem2.Enabled := true;
         combobox6.Enabled :=true;
         edit5.Enabled :=true;
         Label10.Caption := '稻谷粒(粒/kg)  ';
         Label12.Caption :='不完善粒(%)  ';
       end;
    1: // 大豆
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('一级');
         ComboClass.Items.Add('二级');
         ComboClass.Items.Add('三级');
         ComboClass.Items.Add('四级');
         ComboClass.Items.Add('五级');
         ComboClass.Items.Add('等外');
         cmbitem1.Enabled := true;
         EditItem1.Enabled := true;
         combobox5.Enabled :=true;
         edit4.Enabled :=true;
         Label11.Caption := '纯粮率(%)  ';
       end;
    2: // 小麦
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('一级');
         ComboClass.Items.Add('二级');
         ComboClass.Items.Add('三级');
         ComboClass.Items.Add('四级');
         ComboClass.Items.Add('五级');
         ComboClass.Items.Add('等外');
         cmbitem5.Enabled := true;
         EditItem5.Enabled := true;
         combobox3.Enabled :=true;
         edit2.Enabled :=true;
         cmbitem2.Enabled := true;
         EditItem2.Enabled := true;
         combobox6.Enabled :=true;
         edit5.Enabled :=true;
         Label10.Caption :='容重 (g/L)  ';
         Label12.Caption :='不完善粒(%)  ';
       end;
    3: // 玉米
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('一级');
         ComboClass.Items.Add('二级');
         ComboClass.Items.Add('三级');
         ComboClass.Items.Add('等外');
         cmbitem1.Enabled := true;
         EditItem1.Enabled := true;
         combobox5.Enabled :=true;
         edit4.Enabled :=true;
         Label11.Caption := '纯粮率(%)  ';
         cmbitem5.Enabled := true;
         EditItem5.Enabled := true;
         combobox3.Enabled :=true;
         edit2.Enabled :=true;
         Label10.Caption :='容重(g/L)  ';
         cmbitem2.Enabled := true;
         EditItem2.Enabled := true;
         combobox6.Enabled :=true;
         edit5.Enabled :=true;
         Label12.Caption :='不完善粒(%)  ';
       end;
    4: // 稻谷
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('一级');
         ComboClass.Items.Add('二级');
         ComboClass.Items.Add('三级');
         ComboClass.Items.Add('四级');
         ComboClass.Items.Add('五级');
         ComboClass.Items.Add('等外');
         cmbitem1.Enabled := true;
         EditItem1.Enabled := true;
         combobox5.Enabled :=true;
         edit4.Enabled :=true;
         Label11.Caption := '黄粒米(%)  ';
         cmbitem5.Enabled := true;
         EditItem5.Enabled := true;
         combobox3.Enabled :=true;
         edit2.Enabled :=true;
         Label10.Caption :='出糙率(%)  ';
         cmbitem2.Enabled := true;
         EditItem2.Enabled := true;
         combobox6.Enabled :=true;
         edit5.Enabled :=true;
         Label12.Caption :='不完善粒(%)  ';
         cmbitem3.Enabled := true;
         edititem3.Enabled := true;
         combobox7.Enabled :=true;
         edit6.Enabled :=true;
         cmbitem4.Enabled := true;
         edititem4.Enabled := true;
         combobox8.Enabled :=true;
         edit7.Enabled :=true;
       end;
    5: // 油
       begin
         ComboClass.Items.Clear;
         ComboClass.Items.Add('一级');
         ComboClass.Items.Add('二级');
         ComboClass.Items.Add('等外');
         cmbitem1.Enabled := true;
         EditItem1.Enabled := true;
         combobox5.Enabled :=true;
         edit4.Enabled :=true;
         Label11.Caption := '酸价(%)  ';
         cmbitem5.Enabled := true;
         EditItem5.Enabled := true;
         combobox3.Enabled :=true;
         edit2.Enabled :=true;
         Label10.Caption :='高过氧化值(%)  ';
       end;
    6: // 不指定
       begin