main.~pas

会展条码票务管理、门禁、印刷、现场制证（摄像、登记、印刷）、总控中心、接待管理、展位管理

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Menus, DynamicSkinForm, jpeg, ExtCtrls, bsSkinCtrls,
  RzSplit, RzPanel, xpWindow, xpButton, xpPanel, RzBmpBtn, BusinessSkinForm,
  DB, ADODB, bsSkinShellCtrls, BarHL, Barcode;

type
  TMainForm = class(TForm)
    RzSplitter1: TRzSplitter;
    RzPanel1: TRzPanel;
    RzToolbar1: TRzToolbar;
    Image1: TImage;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    xpButton3: TxpButton;
    xpButton8: TxpButton;
    xpButton9: TxpButton;
    xpButton10: TxpButton;
    xpButton19: TxpButton;
    bsSkinMainMenu1: TbsSkinMainMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N17: TMenuItem;
    N2: TMenuItem;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    xpButton11: TxpButton;
    ADOConnection1: TADOConnection;
    typeQuery: TADOQuery;
    typeSc: TDataSource;
    model: TADOQuery;
    modelsc: TDataSource;
    xpPanel2: TxpPanel;
    xpButton12: TxpButton;
    xpButton13: TxpButton;
    xpButton14: TxpButton;
    xpButton15: TxpButton;
    xpPanel1: TxpPanel;
    xpButton4: TxpButton;
    ry: TADOQuery;
    rysc: TDataSource;
    typeQuerytype_id: TStringField;
    typeQuerytype_name: TStringField;
    typeQuerymodel: TStringField;
    typeQuerymax_id: TIntegerField;
    typeQuerykjm: TStringField;
    oPDialog: TbsSkinOpenPictureDialog;
    xpPanel4: TxpPanel;
    xpButton5: TxpButton;
    xpButton6: TxpButton;
    xpButton18: TxpButton;
    xpPanel3: TxpPanel;
    xpButton7: TxpButton;
    xpButton16: TxpButton;
    xpButton17: TxpButton;
    model2: TADOQuery;
    modelSc2: TDataSource;
    ry2Sc2: TDataSource;
    ry2: TADOQuery;
    ry2guest_id: TStringField;
    ry2guest_name: TStringField;
    ry2xb: TStringField;
    ry2gj: TStringField;
    ry2lx: TStringField;
    ry2photo: TBlobField;
    bsSkinSavePictureDialog1: TbsSkinSavePictureDialog;
    ty2: TADOQuery;
    ty2type_id: TStringField;
    ty2type_name: TStringField;
    ty2model: TStringField;
    ty2max_id: TIntegerField;
    ty2kjm: TStringField;
    model2model_id: TStringField;
    model2model_name: TStringField;
    model2model: TBlobField;
    model2ph_h: TIntegerField;
    model2ph_v: TIntegerField;
    model2name_h: TIntegerField;
    model2name_v: TIntegerField;
    model2countyr_h: TIntegerField;
    model2country_v: TIntegerField;
    model2bh_h: TIntegerField;
    model2bh_v: TIntegerField;
    code: TADOQuery;
    codesc: TDataSource;
    group: TADOQuery;
    groupgroup_id: TStringField;
    groupgroup_name: TStringField;
    codeyw_id: TStringField;
    codeyw_name: TStringField;
    ryguest_id: TStringField;
    ryguest_name: TStringField;
    ryguset_en_name: TStringField;
    ryxb: TStringField;
    rygj: TStringField;
    ryco_name: TStringField;
    ryaddress: TStringField;
    ryweb_add: TStringField;
    rye_mail: TStringField;
    rytel: TStringField;
    ryfax: TStringField;
    ryywxz: TStringField;
    ryhy: TStringField;
    rymd: TStringField;
    rygm: TStringField;
    ryqd: TStringField;
    rysfzz: TWordField;
    ryzt1: TWordField;
    ryzt2: TWordField;
    rylx: TStringField;
    ryzj_name: TStringField;
    ryzj_no: TStringField;
    ryphoto: TBlobField;
    ryztbh: TStringField;
    rydjrq: TDateTimeField;
    groupgj: TStringField;
    groupfzr: TStringField;
    grouptel: TStringField;
    groupxz: TStringField;
    groupbz: TStringField;
    grouprs: TIntegerField;
    codef_id: TStringField;
    codefzxm: TStringField;
    groupSc: TDataSource;
    ry2cename: TStringField;
    procedure RzBmpButton1Click(Sender: TObject);
    procedure xpButton19Click(Sender: TObject);
    procedure xpButton12Click(Sender: TObject);
    procedure xpButton11Click(Sender: TObject);
    procedure xpButton15Click(Sender: TObject);
    procedure xpButton13Click(Sender: TObject);
    procedure xpButton14Click(Sender: TObject);
    procedure xpButton4Click(Sender: TObject);
    procedure xpButton5Click(Sender: TObject);
    procedure xpButton9Click(Sender: TObject);
    procedure xpButton10Click(Sender: TObject);
    procedure xpButton16Click(Sender: TObject);
    procedure xpButton6Click(Sender: TObject);
    procedure xpButton7Click(Sender: TObject);
    procedure xpButton17Click(Sender: TObject);
  private
    { Private declarations }
//    function getbacode(var gt_id:string):timage;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses huiyuan,htpz,qtdj, door, Unit1, date;

{$R *.dfm}
{function TMainForm.getbacode(var gt_id:string):timage;
var
imgX:timage;
begin
barcode1.Bar_Caption:=gt_id;
            ImgX := TImage.Create(self);
            imgX.Visible := True;
            ImgX.Stretch := True;
            IMGX.Picture.Bitmap.Height:=barcode1.Height;
            IMGX.Picture.Bitmap.Width:=barcode1.Width;
            barcode1.CopyToRect(imgx.Canvas,Barcode1.BoundsRect);
result:=imgx;
end;}

procedure TMainForm.RzBmpButton1Click(Sender: TObject);
begin
showmessage('哈哈！这都被你发现了：）') ;
end;

procedure TMainForm.xpButton19Click(Sender: TObject);
begin
if mainform.Width=150 then mainform.Width :=800 else mainform.Width:=150;

end;

procedure TMainForm.xpButton12Click(Sender: TObject);
begin
 Application.CreateForm(Thyform,hyform);
 hyform.Show;
 hyform.RzPageControl1.ActivePageIndex:=0;
end;

procedure TMainForm.xpButton11Click(Sender: TObject);
begin
if mainform.Width=150 then mainform.Width :=800 else mainform.Width:=150;
close;
end;

procedure TMainForm.xpButton15Click(Sender: TObject);
begin
 Application.CreateForm(Thyform,hyform);
 hyform.Show;
 hyform.Caption:='证件输出模版管理';    //  
 hyform.RzPageControl1.ActivePageIndex:=2;
end;

procedure TMainForm.xpButton13Click(Sender: TObject);
begin
 Application.CreateForm(Thyform,hyform);
 hyform.Caption:=' 团对管理';
 hyform.Show;
 hyform.RzPageControl1.ActivePageIndex:=1;
end;

procedure TMainForm.xpButton14Click(Sender: TObject);
begin
 Application.CreateForm(Thyform,hyform);
 hyform.Show;
 hyform.Caption:='调查内容管理';
 hyform.RzPageControl1.ActivePageIndex:=3;
end;

procedure TMainForm.xpButton4Click(Sender: TObject);
begin
Application.CreateForm(Tzjform,zjform);
zjform.Show;
zjform.xppagecontrol1.align:=alclient;
end;

procedure TMainForm.xpButton5Click(Sender: TObject);
begin

Application.CreateForm(Tqtform,qtform);

qtform.Show;
 qtform.Caption:='会员登记管理';
 qtform.xpPageControl1.ActivePageIndex:=0;
end;

procedure TMainForm.xpButton9Click(Sender: TObject);
begin
Application.CreateForm(Tdoorerform,doorerform);
doorerform.Show;
doorerform.edit1.SetFocus;
end;

procedure TMainForm.xpButton10Click(Sender: TObject);
begin
Application.CreateForm(Tzkform,zkform);
zkform.Show;
end;

procedure TMainForm.xpButton16Click(Sender: TObject);
begin
Application.CreateForm(tdataform,dataform);
dataform.Caption:='原始数据库连接';
dataform.RzPageControl1.ActivePageIndex:=0;
dataform.Show;
end;

procedure TMainForm.xpButton6Click(Sender: TObject);
begin
Application.CreateForm(Tqtform,qtform);

 qtform.Caption:='会员证件制作打印';
 qtform.xpPageControl1.ActivePageIndex:=1;
 qtform.Show;
end;

procedure TMainForm.xpButton7Click(Sender: TObject);
begin
Application.CreateForm(tdataform,dataform);
dataform.Caption:='数据模版定义';
dataform.RzPageControl1.ActivePageIndex:=1;
dataform.Show;
end;

procedure TMainForm.xpButton17Click(Sender: TObject);
begin
Application.CreateForm(tdataform,dataform);
dataform.Caption:='数据导入';
dataform.RzPageControl1.ActivePageIndex:=2;
dataform.Show;
end;

end.