Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 6 → Rev 5

/trunk/bugtracker_mysql.sql
File deleted
/trunk/Bugtracker.dproj
File deleted
\ No newline at end of file
/trunk/bugtracker_mssql.sql
File deleted
/trunk/BugtrackerMain.dfm
2,8 → 2,8
Left = 0
Top = 0
Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
ClientHeight = 596
ClientWidth = 763
ClientHeight = 498
ClientWidth = 751
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
19,7 → 19,7
object Splitter1: TSplitter
Left = 249
Top = 0
Height = 596
Height = 498
ExplicitLeft = 0
ExplicitTop = 136
ExplicitHeight = 100
28,18 → 28,17
Left = 0
Top = 0
Width = 249
Height = 596
Height = 498
Align = alLeft
TabOrder = 0
ExplicitHeight = 498
DesignSize = (
249
596)
498)
object DBGrid1: TDBGrid
Left = 8
Top = 35
Width = 233
Height = 504
Height = 406
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dsBugs
ReadOnly = True
90,7 → 89,7
end
object DBNavigator2: TDBNavigator
Left = 11
Top = 554
Top = 456
Width = 232
Height = 25
DataSource = dsBugs
97,24 → 96,21
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Anchors = [akLeft, akRight, akBottom]
TabOrder = 2
ExplicitTop = 456
end
end
object Panel2: TPanel
Left = 252
Top = 0
Width = 511
Height = 596
Width = 499
Height = 498
Align = alClient
TabOrder = 1
ExplicitWidth = 499
ExplicitHeight = 498
DesignSize = (
511
596)
499
498)
object Label1: TLabel
Left = 16
Top = 101
Left = 15
Top = 53
Width = 50
Height = 13
Caption = 'Bearbeiter'
121,7 → 117,7
end
object Label2: TLabel
Left = 15
Top = 195
Top = 149
Width = 20
Height = 13
Caption = 'Titel'
141,8 → 137,8
Caption = 'Gefixt'
end
object Label5: TLabel
Left = 16
Top = 149
Left = 15
Top = 101
Width = 28
Height = 13
Caption = 'Modul'
176,20 → 172,6
Alignment = taRightJustify
Caption = 'Kritisch'
end
object Label9: TLabel
Left = 240
Top = 195
Width = 96
Height = 13
Caption = 'Geplant f'#252'r Version:'
end
object Label10: TLabel
Left = 17
Top = 53
Width = 40
Height = 13
Caption = 'Erfasser'
end
object DBNavigator1: TDBNavigator
Left = 15
Top = 16
201,18 → 183,17
end
object DBRichEdit1: TDBRichEdit
Left = 15
Top = 280
Width = 483
Height = 299
Top = 248
Width = 471
Height = 233
Anchors = [akLeft, akTop, akRight, akBottom]
DataField = 'beschreibung'
DataSource = dsBugs
TabOrder = 9
ExplicitWidth = 736
end
object DBEdit1: TDBEdit
Left = 15
Top = 208
Top = 168
Width = 186
Height = 21
DataField = 'titel'
220,8 → 201,8
TabOrder = 5
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 16
Top = 120
Left = 15
Top = 72
Width = 186
Height = 21
DataField = 'bearbeiter'
258,7 → 239,7
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 15
Top = 168
Top = 120
Width = 186
Height = 21
DataField = 'modul'
300,8 → 281,8
OnClick = btnFixedToggleClick
end
object btnBearbeitungsnotiz: TButton
Left = 17
Top = 240
Left = 16
Top = 208
Width = 185
Height = 25
Caption = 'Notiz hinzuf'#252'gen'
308,41 → 289,13
TabOrder = 7
OnClick = btnBearbeitungsnotizClick
end
object DBLookupComboBox4: TDBLookupComboBox
Left = 240
Top = 208
Width = 155
Height = 21
DataField = 'version_agenda'
DataSource = dsBugs
KeyField = 'id'
ListField = 'version'
ListSource = dsVersionen
TabOrder = 11
end
object cbxErfasser: TDBLookupComboBox
Left = 17
Top = 72
Width = 186
Height = 21
Color = clBtnFace
DataField = 'erfasser'
DataSource = dsBugs
KeyField = 'id'
ListField = 'name'
ListSource = dsMitarbeiter
NullValueKey = 46
ReadOnly = True
TabOrder = 12
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=WULI;Data Source=GREINER\CORA2012,49001'
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
' RAS;Initial Catalog=bugtracker'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 104
Top = 344
end
447,13 → 400,7
object qryBugsprojekt: TIntegerField
FieldName = 'projekt'
end
object qryBugserfasser: TIntegerField
FieldName = 'erfasser'
end
object qryBugsversion_agenda: TIntegerField
FieldName = 'version_agenda'
end
end
object dsVersionen: TDataSource
DataSet = qryVersionen
Left = 240
/trunk/BugtrackerMain.pas
21,7 → 21,7
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
Dialogs, DBXpress, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
 
type
84,12 → 84,6
LblAngemeldet: TLabel;
Label7: TLabel;
Label8: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
qryBugserfasser: TIntegerField;
qryBugsversion_agenda: TIntegerField;
Label9: TLabel;
cbxErfasser: TDBLookupComboBox;
Label10: TLabel;
procedure Mitarbeiter1Click(Sender: TObject);
procedure qryBugsAfterScroll(DataSet: TDataSet);
procedure Module1Click(Sender: TObject);
128,9 → 122,7
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
begin
// Standardwerte für einen neuen Bug
qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
qryBugs.FieldByName('erstellt').AsDateTime := Now;
qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
qryBugs.FieldByName('wichtigkeit').AsInteger := 5;
// qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter;
qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
end;
248,7 → 240,6
begin
ini := TMemIniFile.Create('bugtracker.ini');
try
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
finally
ini.Free;
/trunk/Mitarbeiter.pas
4,12 → 4,11
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
Dialogs, DB, ADODB, Grids, DBGrids;
 
type
TfrmMitarbeiter = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Module.pas
4,12 → 4,11
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
Dialogs, DB, ADODB, Grids, DBGrids;
 
type
TfrmModule = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Projekte.pas
4,12 → 4,11
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
Dialogs, DB, ADODB, Grids, DBGrids;
 
type
TfrmProjekte = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Versionen.pas
4,12 → 4,11
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
Dialogs, DB, ADODB, Grids, DBGrids;
 
type
TfrmVersionen = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Mitarbeiter.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Mitarbeiter'
ClientHeight = 280
ClientHeight = 250
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,13 → 35,4
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 247
Width = 256
Height = 25
DataSource = frmBugtracker.dsMitarbeiter
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 1
end
end
/trunk/Module.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Module'
ClientHeight = 280
ClientHeight = 250
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,13 → 35,4
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 247
Width = 256
Height = 25
DataSource = frmBugtracker.dsModule
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 1
end
end
/trunk/Projekte.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Projekte'
ClientHeight = 280
ClientHeight = 250
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,13 → 35,4
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 247
Width = 256
Height = 25
DataSource = frmBugtracker.dsProjekte
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 1
end
end
/trunk/Versionen.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Versionen'
ClientHeight = 280
ClientHeight = 250
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,13 → 35,4
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 247
Width = 256
Height = 25
DataSource = frmBugtracker.dsVersionen
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 1
end
end
/trunk/bugtracker.ini
1,7 → 1,2
[Database]
 
; Daniel Marschall Privat
;ConnectionString=Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL RAS;Initial Catalog=bugtracker;
 
; HickelSOFT
ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=WULI;Data Source=GREINER\CORA2012,49001
ConnectionString=Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL RAS;Initial Catalog=bugtracker;
/trunk/bugtracker.sql
0,0 → 1,153
-- phpMyAdmin SQL Dump
-- version 4.2.0-dev
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Erstellungszeit: 21. Feb 2016 um 03:49
-- Server Version: 5.5.44-0+deb8u1
-- PHP-Version: 5.6.17-0+deb8u1
 
SET SQL_MODE = "NO_AUTO_VALUE_ON_ZERO";
SET time_zone = "+00:00";
 
 
/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;
 
--
-- Datenbank: `bugtracker`
--
 
-- --------------------------------------------------------
 
--
-- Tabellenstruktur für Tabelle `bugs`
--
 
CREATE TABLE IF NOT EXISTS `bugs` (
`id` int(11) NOT NULL,
`titel` varchar(255) NOT NULL,
`beschreibung` text NOT NULL,
`erstellt` datetime DEFAULT NULL,
`wichtigkeit` int(11) NOT NULL DEFAULT '5',
`bearbeiter` int(11) DEFAULT NULL,
`fixdatum` datetime DEFAULT NULL,
`version_release` int(11) NOT NULL,
`modul` int(11) NOT NULL,
`projekt` int(11) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=5 ;
 
-- --------------------------------------------------------
 
--
-- Tabellenstruktur für Tabelle `mitarbeiter`
--
 
CREATE TABLE IF NOT EXISTS `mitarbeiter` (
`id` int(11) NOT NULL,
`name` varchar(255) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=3 ;
 
-- --------------------------------------------------------
 
--
-- Tabellenstruktur für Tabelle `module`
--
 
CREATE TABLE IF NOT EXISTS `module` (
`id` int(11) NOT NULL,
`projekt` int(11) NOT NULL,
`modul` varchar(255) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=3 ;
 
-- --------------------------------------------------------
 
--
-- Tabellenstruktur für Tabelle `projekte`
--
 
CREATE TABLE IF NOT EXISTS `projekte` (
`id` int(11) NOT NULL,
`projekt` varchar(255) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;
 
-- --------------------------------------------------------
 
--
-- Tabellenstruktur für Tabelle `versionen`
--
 
CREATE TABLE IF NOT EXISTS `versionen` (
`id` int(11) NOT NULL,
`version` varchar(255) NOT NULL,
`projekt` int(11) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=3 ;
 
--
-- Indexes for dumped tables
--
 
--
-- Indexes for table `bugs`
--
ALTER TABLE `bugs`
ADD PRIMARY KEY (`id`);
 
--
-- Indexes for table `mitarbeiter`
--
ALTER TABLE `mitarbeiter`
ADD PRIMARY KEY (`id`);
 
--
-- Indexes for table `module`
--
ALTER TABLE `module`
ADD PRIMARY KEY (`id`);
 
--
-- Indexes for table `projekte`
--
ALTER TABLE `projekte`
ADD PRIMARY KEY (`id`);
 
--
-- Indexes for table `versionen`
--
ALTER TABLE `versionen`
ADD PRIMARY KEY (`id`);
 
--
-- AUTO_INCREMENT for dumped tables
--
 
--
-- AUTO_INCREMENT for table `bugs`
--
ALTER TABLE `bugs`
MODIFY `id` int(11) NOT NULL AUTO_INCREMENT;
--
-- AUTO_INCREMENT for table `mitarbeiter`
--
ALTER TABLE `mitarbeiter`
MODIFY `id` int(11) NOT NULL AUTO_INCREMENT;
--
-- AUTO_INCREMENT for table `module`
--
ALTER TABLE `module`
MODIFY `id` int(11) NOT NULL AUTO_INCREMENT;
--
-- AUTO_INCREMENT for table `projekte`
--
ALTER TABLE `projekte`
MODIFY `id` int(11) NOT NULL AUTO_INCREMENT;
--
-- AUTO_INCREMENT for table `versionen`
--
ALTER TABLE `versionen`
MODIFY `id` int(11) NOT NULL AUTO_INCREMENT;
/*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */;
/*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */;
/*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */;