Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 5 → Rev 6

/trunk/bugtracker.sql
File deleted
/trunk/Bugtracker.dproj
0,0 → 1,90
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{d9325f5e-2b75-4c5f-b683-9907a01f0c72}</ProjectGuid>
<MainSource>Bugtracker.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>Bugtracker.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Bugtracker für Windows</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">WuLi</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">(C) 2016 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">Bugtracker.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">ViaThinkSoft Bugtracker für Windows</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments">www.daniel-marschall.de</VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Bugtracker.dpr</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<ItemGroup />
<ItemGroup>
<DelphiCompile Include="Bugtracker.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="About.pas">
<Form>AboutBox</Form>
</DCCReference>
<DCCReference Include="BugtrackerMain.pas">
<Form>frmBugtracker</Form>
</DCCReference>
<DCCReference Include="Login.pas">
<Form>frmLogin</Form>
</DCCReference>
<DCCReference Include="Mitarbeiter.pas">
<Form>frmMitarbeiter</Form>
</DCCReference>
<DCCReference Include="Module.pas">
<Form>frmModule</Form>
</DCCReference>
<DCCReference Include="Projekte.pas">
<Form>frmProjekte</Form>
</DCCReference>
<DCCReference Include="Versionen.pas">
<Form>frmVersionen</Form>
</DCCReference>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</Project>
/trunk/BugtrackerMain.dfm
2,8 → 2,8
Left = 0
Top = 0
Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
ClientHeight = 498
ClientWidth = 751
ClientHeight = 596
ClientWidth = 763
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
19,7 → 19,7
object Splitter1: TSplitter
Left = 249
Top = 0
Height = 498
Height = 596
ExplicitLeft = 0
ExplicitTop = 136
ExplicitHeight = 100
28,17 → 28,18
Left = 0
Top = 0
Width = 249
Height = 498
Height = 596
Align = alLeft
TabOrder = 0
ExplicitHeight = 498
DesignSize = (
249
498)
596)
object DBGrid1: TDBGrid
Left = 8
Top = 35
Width = 233
Height = 406
Height = 504
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = dsBugs
ReadOnly = True
89,7 → 90,7
end
object DBNavigator2: TDBNavigator
Left = 11
Top = 456
Top = 554
Width = 232
Height = 25
DataSource = dsBugs
96,21 → 97,24
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Anchors = [akLeft, akRight, akBottom]
TabOrder = 2
ExplicitTop = 456
end
end
object Panel2: TPanel
Left = 252
Top = 0
Width = 499
Height = 498
Width = 511
Height = 596
Align = alClient
TabOrder = 1
ExplicitWidth = 499
ExplicitHeight = 498
DesignSize = (
499
498)
511
596)
object Label1: TLabel
Left = 15
Top = 53
Left = 16
Top = 101
Width = 50
Height = 13
Caption = 'Bearbeiter'
117,7 → 121,7
end
object Label2: TLabel
Left = 15
Top = 149
Top = 195
Width = 20
Height = 13
Caption = 'Titel'
137,8 → 141,8
Caption = 'Gefixt'
end
object Label5: TLabel
Left = 15
Top = 101
Left = 16
Top = 149
Width = 28
Height = 13
Caption = 'Modul'
172,6 → 176,20
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
183,17 → 201,18
end
object DBRichEdit1: TDBRichEdit
Left = 15
Top = 248
Width = 471
Height = 233
Top = 280
Width = 483
Height = 299
Anchors = [akLeft, akTop, akRight, akBottom]
DataField = 'beschreibung'
DataSource = dsBugs
TabOrder = 9
ExplicitWidth = 736
end
object DBEdit1: TDBEdit
Left = 15
Top = 168
Top = 208
Width = 186
Height = 21
DataField = 'titel'
201,8 → 220,8
TabOrder = 5
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 15
Top = 72
Left = 16
Top = 120
Width = 186
Height = 21
DataField = 'bearbeiter'
239,7 → 258,7
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 15
Top = 120
Top = 168
Width = 186
Height = 21
DataField = 'modul'
281,8 → 300,8
OnClick = btnFixedToggleClick
end
object btnBearbeitungsnotiz: TButton
Left = 16
Top = 208
Left = 17
Top = 240
Width = 185
Height = 25
Caption = 'Notiz hinzuf'#252'gen'
289,13 → 308,41
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=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
' RAS;Initial Catalog=bugtracker'
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=WULI;Data Source=GREINER\CORA2012,49001'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 104
Top = 344
end
400,7 → 447,13
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, DBXpress, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
 
type
84,6 → 84,12
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);
122,7 → 128,9
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
begin
// Standardwerte für einen neuen Bug
qryBugs.FieldByName('wichtigkeit').AsInteger := 5;
qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
qryBugs.FieldByName('erstellt').AsDateTime := Now;
qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
// qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter;
qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
end;
240,6 → 248,7
begin
ini := TMemIniFile.Create('bugtracker.ini');
try
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
finally
ini.Free;
/trunk/Mitarbeiter.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Mitarbeiter'
ClientHeight = 250
ClientHeight = 280
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,4 → 35,13
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/Mitarbeiter.pas
4,11 → 4,12
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
 
type
TfrmMitarbeiter = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Module.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Module'
ClientHeight = 250
ClientHeight = 280
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,4 → 35,13
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/Module.pas
4,11 → 4,12
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
 
type
TfrmModule = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Projekte.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Projekte'
ClientHeight = 250
ClientHeight = 280
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,4 → 35,13
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/Projekte.pas
4,11 → 4,12
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
 
type
TfrmProjekte = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/Versionen.dfm
4,7 → 4,7
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Versionen'
ClientHeight = 250
ClientHeight = 280
ClientWidth = 273
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
35,4 → 35,13
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/Versionen.pas
4,11 → 4,12
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls;
 
type
TfrmVersionen = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private-Deklarationen }
public
/trunk/bugtracker.ini
1,2 → 1,7
[Database]
ConnectionString=Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL RAS;Initial Catalog=bugtracker;
 
; 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
/trunk/bugtracker_mssql.sql
0,0 → 1,38
 
CREATE TABLE [dbo].[bugs](
[id] [int] IDENTITY(1,1) NOT NULL,
[titel] [varchar](255) NULL,
[beschreibung] [text] NULL,
[erstellt] [datetime] NOT NULL,
[wichtigkeit] [int] NOT NULL,
[erfasser] [int] NOT NULL,
[bearbeiter] [int] NULL,
[fixdatum] [datetime] NULL,
[version_release] [int] NULL,
[version_agenda] [int] NULL,
[modul] [int] NULL,
[projekt] [int] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
ALTER TABLE [dbo].[bugs] ADD CONSTRAINT [DF_bugs_wichtigkeit] DEFAULT ((5)) FOR [wichtigkeit]
 
CREATE TABLE [dbo].[mitarbeiter](
[id] [int] IDENTITY(1,1) NOT NULL,
[name] [varchar](255) NULL
) ON [PRIMARY]
 
CREATE TABLE [dbo].[module](
[id] [int] IDENTITY(1,1) NOT NULL,
[modul] [varchar](255) NULL,
[projekt] [int] NOT NULL
) ON [PRIMARY]
 
CREATE TABLE [dbo].[projekte](
[id] [int] IDENTITY(1,1) NOT NULL,
[projekt] [varchar](255) NULL
) ON [PRIMARY]
 
CREATE TABLE [dbo].[versionen](
[id] [int] IDENTITY(1,1) NOT NULL,
[version] [varchar](255) NULL,
[projekt] [int] NOT NULL
) ON [PRIMARY]
/trunk/bugtracker_mysql.sql
0,0 → 1,156
-- 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` longtext NOT NULL,
`erstellt` datetime DEFAULT NULL,
`wichtigkeit` int(11) NOT NULL DEFAULT '5',
`erfasser` int(11) DEFAULT NULL,
`bearbeiter` int(11) DEFAULT NULL,
`fixdatum` datetime DEFAULT NULL,
`version_release` int(11) NOT NULL,
`version_agenda` int(11) NOT NULL,
`modul` int(11) NOT NULL,
`projekt` int(11) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1 ;
 
-- --------------------------------------------------------
 
--
-- 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 ;
 
-- --------------------------------------------------------
 
--
-- 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 ;
 
-- --------------------------------------------------------
 
--
-- 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 ;
 
-- --------------------------------------------------------
 
--
-- 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 ;
 
--
-- 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 */;