uckhwhquery.~pas

我的毕业设计

unit Uckhwhquery;

interface

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

type
  Tfrmckhwhquery = class(TForm)
    Label1: TLabel;
    Commc: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmckhwhquery: Tfrmckhwhquery;

implementation

uses Uquery, Urkdataquery, Ukcquery;

{$R *.dfm}

procedure Tfrmckhwhquery.FormCreate(Sender: TObject);
 var
 i:integer;
begin
query1.open;
table1.Active:=true;
for i:=1 to table1.RecordCount do
begin
  commc.Items.Add(table1.fieldbyname('货物号').AsString );
  table1.Next;
end ;
 table1.Active:=false;
end;

procedure Tfrmckhwhquery.SpeedButton1Click(Sender: TObject);
begin
if commc.Text='' then
 messagebox(getforegroundwindow, '请选择要查询的货物号！','系统提示', mb_ok + mb_iconinformation)
else
 begin
  frmrkdataquery.query1.close;
  frmrkdataquery.query1.SQL.Clear;
  frmrkdataquery.query1.SQL.Add('select * from crkb where 货物号=' + #39 +trim(commc.Text)+ #39+'and 出入标志='+#39+inttostr(0)+#39);
  frmrkdataquery.query1.Open;
  frmkcquery.dbgrid1.refresh;
  frmkcquery.showmodal;
   end
 end;

procedure Tfrmckhwhquery.SpeedButton2Click(Sender: TObject);
begin
close
end;

end.