zdkctj.pas

集成酒店桑拿食管管理的完整程序

unit zdkctj;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, Grids, DBGrids, ComCtrls, DBTables;

type
  TzdkctjForm = class(TForm)
    xfname: TTabControl;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    cwsys: TComboBox;
    xflb: TComboBox;
    Query1: TQuery;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure xfnameChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zdkctjForm: TzdkctjForm;

implementation
uses dataproc,zdprintUnit;
{$R *.DFM}

procedure TzdkctjForm.FormShow(Sender: TObject);
var i:integer;
begin
   Panel1.Caption:=curper.sydw+curper.workjsj+'站点库存统计表';
   xflb.Items.Clear;
   xfname.Tabs.Clear;
   cwsys.Items.Clear;
   try
     cwsys.Items.LoadFromFile(curper.workpath+'\cwsys.dll');
   except
   end;
   for i:=2 to cwsys.Items.Count-1 do
   begin
     if trim(copy(cwsys.Items[i],5,10))<>'' then
     begin
       xflb.Items.Add(trim(copy(cwsys.Items[i],5,10)));
       xfname.Tabs.Add(trim(copy(cwsys.Items[i],45,30)));
     end;
   end;
   if xfname.Tabs.Count>0 then xfnameChange(nil);
end;

procedure TzdkctjForm.xfnameChange(Sender: TObject);
begin
  Query1.Active:=false;
  Query1.ParamByName('pkf').asstring:=xflb.Items[xfname.TabIndex];
  Query1.Open;
  
end;

procedure TzdkctjForm.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TzdprintForm, zdprintForm);
 // zdprintForm.showmodal;
  zdprintForm.zdm.Caption:=Panel1.Caption;
  zdprintForm.bmm.Caption:=xfname.tabs[xfname.TabIndex];
  zdprintForm.hide;
  zdprintForm.qr1.Preview;
  zdprintForm.close;
  zdprintForm.free;
end;

end.