grqxunit.pas

一个票据管理系统

unit GrqxUnit;

interface

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

type
  TGrqxForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure GrQxNewll;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GrqxForm: TGrqxForm;

implementation
uses GrmsUnit,DM;
{$R *.dfm}
PROcedure TGrqxForm.GrQxNewll;
var
 iacc_id,iyear:integer;
begin
   iacc_id:=dmdata.qsjzADOQuery.fieldbyname('iacc_id').AsInteger;
   iyear:=dmdata.qsjzADOQuery.fieldbyname('iyear').AsInteger;
   with dmdata.rqADOQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select * from g_period where (iacc_id=:a)and(iyear=:b)' );
     parameters.ParamByName('a').Value := iacc_id;
     parameters.ParamByName('b').Value:=iyear;
     open;
     First;
     while not dmdata.rqADOQuery.eof do
     begin
        combobox2.Items.Add(datetostr(fieldbyname('dbegin').AsDateTime));
        combobox3.Items.Add(datetostr(fieldbyname('dend').AsDateTime));
        Next;
     end;
   end;
   combobox1.Items.Add('全部');
   combobox1.ItemIndex:=0;
end;
procedure TGrqxForm.BitBtn1Click(Sender: TObject);
begin
   if (combobox2.Text = '')and(combobox3.Text ='') then
      exit;
   try
      Grmsform := TGrmsform.Create(Application);    //动态创建关于窗体
      grmsform.ShowModal;                               //显示关于窗口

   except
      on e: exception do
      Application.ShowException(e);    //弹出异常对话框
 end;
end;

procedure TGrqxForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TGrqxForm.FormCreate(Sender: TObject);
begin
  GrQxNewll;
end;

end.