home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / TUSERSCS.ZIP / ToolsAndComps / UsersCS / ExampleD3 / main.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-04-16  |  1.7 KB  |  80 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, Db, DBTables, UsersCS, Grids, DBGrids;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     UsersCS1: TUsersCS;
  12.     dbInterbase: TDatabase;
  13.     MainMenu1: TMainMenu;
  14.     Projects1: TMenuItem;
  15.     NewProject1: TMenuItem;
  16.     EditProjectData1: TMenuItem;
  17.     DeleteProject1: TMenuItem;
  18.     N1: TMenuItem;
  19.     ListProjects1: TMenuItem;
  20.     Tasks2: TMenuItem;
  21.     NewTask2: TMenuItem;
  22.     EditTaskData2: TMenuItem;
  23.     DeleteTask2: TMenuItem;
  24.     N3: TMenuItem;
  25.     ListTasks2: TMenuItem;
  26.     N2: TMenuItem;
  27.     Print1: TMenuItem;
  28.     ControledeUsurios1: TMenuItem;
  29.     MudarPassword1: TMenuItem;
  30.     AdministraodeUsurios1: TMenuItem;
  31.     Login1: TMenuItem;
  32.     Query1: TQuery;
  33.     DataSource1: TDataSource;
  34.     procedure MudarPassword1Click(Sender: TObject);
  35.     procedure AdministraodeUsurios1Click(Sender: TObject);
  36.     procedure Login1Click(Sender: TObject);
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure NewProject1Click(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   Form1: TForm1;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TForm1.MudarPassword1Click(Sender: TObject);
  53. begin
  54.   UsersCS1.ChangeUserPassword;
  55. end;
  56.  
  57. procedure TForm1.AdministraodeUsurios1Click(Sender: TObject);
  58. begin
  59.   UsersCS1.UsersAdm;
  60. end;
  61.  
  62. procedure TForm1.Login1Click(Sender: TObject);
  63. begin
  64.   UsersCS1.Login;
  65. end;
  66.  
  67.  
  68.  
  69. procedure TForm1.FormCreate(Sender: TObject);
  70. begin
  71.   ShortDateFormat:='dd/mm/yy';
  72. end;
  73.  
  74. procedure TForm1.NewProject1Click(Sender: TObject);
  75. begin
  76.   ShowMessage((Sender as TMenuItem).Caption);
  77. end;
  78.  
  79. end.
  80.