date.~pas

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

unit date;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzEdit, StdCtrls, Mask, ExtCtrls, RzPanel, DB, ADODB, RzTabs,
  xpButton, RzLabel, Grids, DBGrids,inifiles;

type
  TdataForm = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    ORGConnection: TADOConnection;
    RzGroupBox1: TRzGroupBox;
    RzMaskEdit1: TRzMaskEdit;
    RzEdit1: TRzEdit;
    RzEdit3: TRzEdit;
    RzLabel1: TRzLabel;
    xpButton1: TxpButton;
    RzMaskEdit2: TRzMaskEdit;
    obj: TADOQuery;
    objsc: TDataSource;
    DBGrid1: TDBGrid;
    colsc: TDataSource;
    DBGrid2: TDBGrid;
    col: TADOQuery;
    objid: TIntegerField;
    objname: TWideStringField;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzEdit2: TRzEdit;
    RzEdit4: TRzEdit;
    RzEdit5: TRzEdit;
    RzEdit6: TRzEdit;
    RzEdit7: TRzEdit;
    RzEdit8: TRzEdit;
    xpButton2: TxpButton;
    RzLabel10: TRzLabel;
    RzEdit9: TRzEdit;
    RzEdit10: TRzEdit;
    RzEdit11: TRzEdit;
    RzEdit12: TRzEdit;
    RzEdit13: TRzEdit;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzEdit16: TRzEdit;
    RzEdit17: TRzEdit;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    procedure Button1Click(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dataForm: TdataForm;

implementation

{$R *.dfm}

procedure TdataForm.Button1Click(Sender: TObject);
begin
showmessage(rzmaskedit1.Text);
end;

procedure TdataForm.xpButton1Click(Sender: TObject);
begin
orgconnection.Close;
orgconnection.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+rzedit1.text+';Initial Catalog='+rzedit3.Text+';Data Source='+rzmaskedit1.Text;
try
orgconnection.Connected:=true;
obj.Active:=true;
    showmessage('正常连接！');
except
showmessage('服务不存在或用户密码不正确。请重新设置！');
end;
end;


procedure TdataForm.DBGrid1DblClick(Sender: TObject);
begin
col.Close;
col.Parameters.ParamByName('tid').Value:=objid.Value;
col.Open;
col.Active:=true;
end;

procedure TdataForm.xpButton2Click(Sender: TObject);
var
  theini : tinifile;
  Filename : string;
begin
   Filename:=ExtractFilePath(Paramstr(0))+'datamodel.ini';
   theini:=Tinifile.Create(filename);
   theini.writestring('human','table_name',trim(rzedit9.Text));
   theini.writestring('human','guest_id',trim(rzedit2.text));
   theini.writestring('human','guest_name',trim(rzedit4.text));
   theini.writestring('human','gj',trim(rzedit5.text));
   theini.writestring('human','xb',trim(rzedit6.text));
   theini.writestring('human','lx',trim(rzedit7.text));
   theini.writestring('human','photo',trim(rzedit8.text));

   theini.writestring('type','table_name',trim(rzedit13.text));
   theini.writestring('type','type_id',trim(rzedit12.text));
   theini.writestring('type','type_name',trim(rzedit11.text));

   theini.writestring('group','table_name',trim(rzedit13.text));
   theini.writestring('group','group_id',trim(rzedit12.text));
   theini.writestring('group','group_name',trim(rzedit11.text));

   theini.Destroy;
   showmessage('保存完毕！');
end;

end.