formwannengchaxun.pas

这是一个关于药品进销存的管理软件

unit FormWannengchaxun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB, Menus, DBCtrls;

type
  Twannengchaxun = class(TForm)
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Button1: TButton;
    procedure CheckBox1Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wannengchaxun: Twannengchaxun;

implementation

uses FormJinhuodanbiaotouxinxi;

{$R *.dfm}

procedure Twannengchaxun.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
   groupbox1.Enabled:=true;
if checkbox1.Checked=false then
   groupbox1.Enabled:=false;

end;

procedure Twannengchaxun.ComboBox1DropDown(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;

end;



procedure Twannengchaxun.Button1Click(Sender: TObject);
begin
jinhuodanbiaotouxinxi.Caption:='进货单表头信息';

if  radiobutton1.Checked=true then
  begin
  jinhuodanbiaotouxinxi.ADOQuery1.Close;
  jinhuodanbiaotouxinxi.ADOQuery1.SQL.Clear;
  jinhuodanbiaotouxinxi.ADOQuery1.SQL.Text:='select * from 入库信息查询 where '''+combobox1.text+'''='''+edit1.Text+'''';
  jinhuodanbiaotouxinxi.ADOQuery1.Parameters.ParamByName('d1').Value:=combobox1.Text;
  jinhuodanbiaotouxinxi.ADOQuery1.Open;
  jinhuodanbiaotouxinxi.Show;
  end;

end;
end.