Subversion Repositories winbugtracker

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit WuLiMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DBXpress, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
  8.   ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     ADOConnection1: TADOConnection;
  13.     dsBugs: TDataSource;
  14.     DBNavigator1: TDBNavigator;
  15.     DBRichEdit1: TDBRichEdit;
  16.     DBGrid1: TDBGrid;
  17.     DBEdit1: TDBEdit;
  18.     DBLookupComboBox1: TDBLookupComboBox;
  19.     tblMitarbeiter: TADOTable;
  20.     dsMitarbeiter: TDataSource;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     MainMenu1: TMainMenu;
  24.     Stammdaten1: TMenuItem;
  25.     Mitarbeiter1: TMenuItem;
  26.     Projekte1: TMenuItem;
  27.     Module1: TMenuItem;
  28.     XPManifest1: TXPManifest;
  29.     qryBugs: TADOQuery;
  30.     DBEdit2: TDBEdit;
  31.     DBEdit3: TDBEdit;
  32.     Label3: TLabel;
  33.     Label4: TLabel;
  34.     tblVersionen: TADOTable;
  35.     dsVersionen: TDataSource;
  36.     tblProjekte: TADOTable;
  37.     dsProjekte: TDataSource;
  38.     tblModule: TADOTable;
  39.     dsModule: TDataSource;
  40.     Versionen1: TMenuItem;
  41.     DBLookupComboBox2: TDBLookupComboBox;
  42.     Label5: TLabel;
  43.     DBLookupComboBox3: TDBLookupComboBox;
  44.     Label6: TLabel;
  45.     TrackBar1: TTrackBar;
  46.     ComboBox1: TComboBox;
  47.     procedure Mitarbeiter1Click(Sender: TObject);
  48.     procedure DateTimePicker1CloseUp(Sender: TObject);
  49.     procedure qryBugsAfterScroll(DataSet: TDataSet);
  50.     procedure Module1Click(Sender: TObject);
  51.     procedure Projekte1Click(Sender: TObject);
  52.     procedure Versionen1Click(Sender: TObject);
  53.     procedure TrackBar1Change(Sender: TObject);
  54.   private
  55.     { Private-Deklarationen }
  56.   public
  57.     { Public-Deklarationen }
  58.   end;
  59.  
  60. var
  61.   Form1: TForm1;
  62.  
  63. implementation
  64.  
  65. uses Mitarbeiter, Module, Versionen, Projekte;
  66.  
  67. {$R *.dfm}
  68.  
  69. procedure TForm1.qryBugsAfterScroll(DataSet: TDataSet);
  70. begin
  71. //  DateTimePicker1.DateTime := qryBugs.FieldByName('fixdatum').AsDateTime;
  72. //  TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger;
  73. end;
  74.  
  75. procedure TForm1.TrackBar1Change(Sender: TObject);
  76. begin
  77.   if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
  78.   qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position;
  79. end;
  80.  
  81. procedure TForm1.Versionen1Click(Sender: TObject);
  82. begin
  83.   frmVersionen.ShowModal;
  84. end;
  85.  
  86. procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
  87. begin
  88.   (*
  89.   LockWindowUpdate(DBGrid1.Handle);
  90.   if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
  91.   qryBugs.FieldByName('fixdatum').AsDateTime := DateTimePicker1.DateTime;
  92.   LockWindowUpdate(0);
  93.   *)
  94. end;
  95.  
  96. procedure TForm1.Mitarbeiter1Click(Sender: TObject);
  97. begin
  98.   frmMitarbeiter.ShowModal;
  99. end;
  100.  
  101. procedure TForm1.Module1Click(Sender: TObject);
  102. begin
  103.   frmModule.ShowModal;
  104. end;
  105.  
  106. procedure TForm1.Projekte1Click(Sender: TObject);
  107. begin
  108.   frmProjekte.ShowModal;
  109. end;
  110.  
  111. end.
  112.