unitqrystockmate.~pas

来自「仓储系统」· ~PAS 代码 · 共 95 行

unit UnitQryStockMate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, _GClass, AbCBitBt, Grids, DBGrids, RXCtrls,
  ExtCtrls, ComCtrls, DB, ADODB;

type
  TfrmQryCondition = class(TForm)
    Panel5: TPanel;
    btnQuery2: TAbColBitBtn;
    btnPrint2: TAbColBitBtn;
    btnExit2: TAbColBitBtn;
    DBGrid1: TDBGrid;
    ADOQuery_sql: TADOQuery;
    dsMb: TDataSource;
    gb_3: TGroupBox;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    gx_2: TGroupBox;
    rbAnd_2: TRadioButton;
    rbOr_2: TRadioButton;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    cbxGx_2: TCheckBox;
    cbx_3: TCheckBox;
    GroupBox1: TGroupBox;
    Edit6: TEdit;
    ComboBox3: TComboBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox1: TCheckBox;
    ComboBox4: TComboBox;
    Edit7: TEdit;
    CheckBox2: TCheckBox;
    procedure btnExit1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    function logicconv(str:string):string;
    procedure cbx_2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    listKf,listKfmc:array of string;
    listKw,listKwmc:array of string;
    listQuality,listQualityName:array of string;
  end;

var
  frmQryCondition: TfrmQryCondition;

implementation

uses UnitDm;

{$R *.dfm}

procedure TfrmQryCondition.btnExit1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmQryCondition.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

function TfrmQryCondition.logicconv(str:string):string;
begin
  if str='包涵' then result:='like';
  if str='等于' then result:='=';
  if str='大于' then result:='>';
  if str='小于' then result:='<';
  if str='大于等于' then result:='>=';
  if str='小于等于' then result:='<=';
  if str='不等于' then result:='<>';
end;

procedure TfrmQryCondition.cbx_2Click(Sender: TObject);
begin
{  if cbx_1.Checked=true then
  begin

  end else
  begin
    gx_1.State:=cbUnchecked;
  end;  }
end;

end.