jqunit.pas

一个票据管理系统

unit jqUnit;

interface

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

type
  Tjqform = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    ComboBox1: TComboBox;
    Image2: TImage;
    Edit1: TEdit;
    Image3: TImage;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Image4: TImage;
    Image5: TImage;
    ComboBox3: TComboBox;
    procedure combobox1new;
    procedure combobox2new;
    procedure combobox3new;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure formcreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    loginok:boolean;
    date:string;
  end;

var
  jqform: Tjqform;

implementation
uses dm,CreateUnit1, createdata,MainUnit;
{$R *.dfm}
procedure tjqform.combobox1new;
begin
   dmdata.ADOTable_dh.Active:=false;
   dmdata.ADOTable_dh.Active:=true;
   dmdata.ADOTable_dh.First;
   while not dmdata.ADOTable_dh.eof do
   begin
     combobox1.Items.Add('['+dmdata.ADOTable_dh['cacc']+']'+dmdata.ADOTable_dh['cacc_name']);
     dmdata.ADOTable_dh.Next;
   end;
   combobox1.ItemIndex:=0;
end;
procedure tjqform.combobox2new;
var
 s,i,unm:integer;
 cacc,str:string;
begin
  if combobox1.Text= '' then
    exit;
  s:=length(trim(combobox1.Text));
  str:=copy(trim(combobox1.Text),2,s-1);
  i:=pos(']',trim(str));
  cacc:=copy(trim(str),1,i-1);
  dmdata.ADOTable_year.Active:=false;
  dmdata.ADOTable_year.Active:=true;
  dmdata.ADOTable_year.Filtered:= false;
  dmdata.ADOTable_year.Filter:='accountNum = '''+cacc+'''';
  dmdata.ADOTable_year.Filtered:=true;
  unm:=0;
  dmdata.ADOTable_year.First;
   while not dmdata.ADOTable_year.eof do
   begin
     combobox2.Items.Add(dmdata.ADOTable_year['iyear']);
     dmdata.ADOTable_year.Next;
     unm:=unm + 1;
   end;
   combobox2.ItemIndex:=unm-1;
end;
procedure Tjqform.combobox3new;
var
 s,i:integer;
 cacc,str:string;
begin
  if combobox1.Text= '' then
    exit;
  s:=length(trim(combobox1.Text));
  str:=copy(trim(combobox1.Text),2,s-1);
  i:=pos(']',trim(str));
  cacc:=copy(trim(str),1,i-1);
  dmdata.ADOTable_User.Active:=false;
  dmdata.ADOTable_User.Active:=true;
  dmdata.ADOTable_User.Filtered:= false;
  dmdata.ADOTable_User.Filter:='Qx = '''+cacc+'''';
  dmdata.ADOTable_User.Filtered:=true;
  dmdata.ADOTable_User.First;
   while not dmdata.ADOTable_User.eof do
   begin
     combobox3.Items.Add(dmdata.ADOTable_User['name']);
     dmdata.ADOTable_User.Next;
   end;
   combobox3.ItemIndex:=0;
end;
procedure Tjqform.BitBtn2Click(Sender: TObject);
begin
  dmdata.ADOTable_T_user.Active:=true;
  close;
end;

procedure Tjqform.BitBtn1Click(Sender: TObject);
begin
  mainform.pathfileexe;
end;

procedure Tjqform.formcreate(Sender: TObject);
begin
 datetimepicker1.Date:=now;
 combobox1new;
 combobox2new;
 combobox3new;
end;

procedure Tjqform.ComboBox1Change(Sender: TObject);
begin
  combobox2.Clear;
  Combobox2new;
  combobox3.Clear;
  combobox3new;
end;

end.