/trunk/Mitarbeiter.dfm |
---|
0,0 → 1,38 |
object frmMitarbeiter: TfrmMitarbeiter |
Left = 0 |
Top = 0 |
BorderIcons = [biSystemMenu] |
BorderStyle = bsDialog |
Caption = 'Mitarbeiter' |
ClientHeight = 250 |
ClientWidth = 273 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
OldCreateOrder = False |
Position = poMainFormCenter |
PixelsPerInch = 96 |
TextHeight = 13 |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = Form1.dsMitarbeiter |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
TitleFont.Height = -11 |
TitleFont.Name = 'Tahoma' |
TitleFont.Style = [] |
Columns = < |
item |
Expanded = False |
FieldName = 'name' |
Visible = True |
end> |
end |
end |
/trunk/Mitarbeiter.pas |
---|
0,0 → 1,28 |
unit Mitarbeiter; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, DB, ADODB, Grids, DBGrids; |
type |
TfrmMitarbeiter = class(TForm) |
DBGrid1: TDBGrid; |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
frmMitarbeiter: TfrmMitarbeiter; |
implementation |
{$R *.dfm} |
uses |
WuLiMain; |
end. |
/trunk/Module.dfm |
---|
0,0 → 1,38 |
object frmModule: TfrmModule |
Left = 0 |
Top = 0 |
BorderIcons = [biSystemMenu] |
BorderStyle = bsDialog |
Caption = 'Module' |
ClientHeight = 250 |
ClientWidth = 273 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
OldCreateOrder = False |
Position = poMainFormCenter |
PixelsPerInch = 96 |
TextHeight = 13 |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = Form1.dsModule |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
TitleFont.Height = -11 |
TitleFont.Name = 'Tahoma' |
TitleFont.Style = [] |
Columns = < |
item |
Expanded = False |
FieldName = 'modul' |
Visible = True |
end> |
end |
end |
/trunk/Module.pas |
---|
0,0 → 1,28 |
unit Module; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, DB, ADODB, Grids, DBGrids; |
type |
TfrmModule = class(TForm) |
DBGrid1: TDBGrid; |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
frmModule: TfrmModule; |
implementation |
{$R *.dfm} |
uses |
WuLiMain; |
end. |
/trunk/Projekte.dfm |
---|
0,0 → 1,38 |
object frmProjekte: TfrmProjekte |
Left = 0 |
Top = 0 |
BorderIcons = [biSystemMenu] |
BorderStyle = bsDialog |
Caption = 'Projekte' |
ClientHeight = 250 |
ClientWidth = 273 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
OldCreateOrder = False |
Position = poMainFormCenter |
PixelsPerInch = 96 |
TextHeight = 13 |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = Form1.dsProjekte |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
TitleFont.Height = -11 |
TitleFont.Name = 'Tahoma' |
TitleFont.Style = [] |
Columns = < |
item |
Expanded = False |
FieldName = 'projekt' |
Visible = True |
end> |
end |
end |
/trunk/Projekte.pas |
---|
0,0 → 1,28 |
unit Projekte; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, DB, ADODB, Grids, DBGrids; |
type |
TfrmProjekte = class(TForm) |
DBGrid1: TDBGrid; |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
frmProjekte: TfrmProjekte; |
implementation |
{$R *.dfm} |
uses |
WuLiMain; |
end. |
/trunk/Versionen.dfm |
---|
0,0 → 1,38 |
object frmVersionen: TfrmVersionen |
Left = 0 |
Top = 0 |
BorderIcons = [biSystemMenu] |
BorderStyle = bsDialog |
Caption = 'Versionen' |
ClientHeight = 250 |
ClientWidth = 273 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
OldCreateOrder = False |
Position = poMainFormCenter |
PixelsPerInch = 96 |
TextHeight = 13 |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = Form1.dsVersionen |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
TitleFont.Height = -11 |
TitleFont.Name = 'Tahoma' |
TitleFont.Style = [] |
Columns = < |
item |
Expanded = False |
FieldName = 'version' |
Visible = True |
end> |
end |
end |
/trunk/Versionen.pas |
---|
0,0 → 1,28 |
unit Versionen; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, DB, ADODB, Grids, DBGrids; |
type |
TfrmVersionen = class(TForm) |
DBGrid1: TDBGrid; |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
frmVersionen: TfrmVersionen; |
implementation |
{$R *.dfm} |
uses |
WuLiMain; |
end. |
/trunk/WuLi.bdsproj |
---|
0,0 → 1,175 |
<?xml version="1.0" encoding="utf-8"?> |
<BorlandProject> |
<PersonalityInfo> |
<Option> |
<Option Name="Personality">Delphi.Personality</Option> |
<Option Name="ProjectType"></Option> |
<Option Name="Version">1.0</Option> |
<Option Name="GUID">{D9325F5E-2B75-4C5F-B683-9907A01F0C72}</Option> |
</Option> |
</PersonalityInfo> |
<Delphi.Personality> |
<Source> |
<Source Name="MainSource">WuLi.dpr</Source> |
</Source> |
<FileVersion> |
<FileVersion Name="Version">7.0</FileVersion> |
</FileVersion> |
<Compiler> |
<Compiler Name="A">8</Compiler> |
<Compiler Name="B">0</Compiler> |
<Compiler Name="C">1</Compiler> |
<Compiler Name="D">1</Compiler> |
<Compiler Name="E">0</Compiler> |
<Compiler Name="F">0</Compiler> |
<Compiler Name="G">1</Compiler> |
<Compiler Name="H">1</Compiler> |
<Compiler Name="I">1</Compiler> |
<Compiler Name="J">0</Compiler> |
<Compiler Name="K">0</Compiler> |
<Compiler Name="L">1</Compiler> |
<Compiler Name="M">0</Compiler> |
<Compiler Name="N">1</Compiler> |
<Compiler Name="O">1</Compiler> |
<Compiler Name="P">1</Compiler> |
<Compiler Name="Q">0</Compiler> |
<Compiler Name="R">0</Compiler> |
<Compiler Name="S">0</Compiler> |
<Compiler Name="T">0</Compiler> |
<Compiler Name="U">0</Compiler> |
<Compiler Name="V">1</Compiler> |
<Compiler Name="W">0</Compiler> |
<Compiler Name="X">1</Compiler> |
<Compiler Name="Y">1</Compiler> |
<Compiler Name="Z">1</Compiler> |
<Compiler Name="ShowHints">True</Compiler> |
<Compiler Name="ShowWarnings">True</Compiler> |
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler> |
<Compiler Name="NamespacePrefix"></Compiler> |
<Compiler Name="GenerateDocumentation">False</Compiler> |
<Compiler Name="DefaultNamespace"></Compiler> |
<Compiler Name="SymbolDeprecated">True</Compiler> |
<Compiler Name="SymbolLibrary">True</Compiler> |
<Compiler Name="SymbolPlatform">True</Compiler> |
<Compiler Name="SymbolExperimental">True</Compiler> |
<Compiler Name="UnitLibrary">True</Compiler> |
<Compiler Name="UnitPlatform">True</Compiler> |
<Compiler Name="UnitDeprecated">True</Compiler> |
<Compiler Name="UnitExperimental">True</Compiler> |
<Compiler Name="HResultCompat">True</Compiler> |
<Compiler Name="HidingMember">True</Compiler> |
<Compiler Name="HiddenVirtual">True</Compiler> |
<Compiler Name="Garbage">True</Compiler> |
<Compiler Name="BoundsError">True</Compiler> |
<Compiler Name="ZeroNilCompat">True</Compiler> |
<Compiler Name="StringConstTruncated">True</Compiler> |
<Compiler Name="ForLoopVarVarPar">True</Compiler> |
<Compiler Name="TypedConstVarPar">True</Compiler> |
<Compiler Name="AsgToTypedConst">True</Compiler> |
<Compiler Name="CaseLabelRange">True</Compiler> |
<Compiler Name="ForVariable">True</Compiler> |
<Compiler Name="ConstructingAbstract">True</Compiler> |
<Compiler Name="ComparisonFalse">True</Compiler> |
<Compiler Name="ComparisonTrue">True</Compiler> |
<Compiler Name="ComparingSignedUnsigned">True</Compiler> |
<Compiler Name="CombiningSignedUnsigned">True</Compiler> |
<Compiler Name="UnsupportedConstruct">True</Compiler> |
<Compiler Name="FileOpen">True</Compiler> |
<Compiler Name="FileOpenUnitSrc">True</Compiler> |
<Compiler Name="BadGlobalSymbol">True</Compiler> |
<Compiler Name="DuplicateConstructorDestructor">True</Compiler> |
<Compiler Name="InvalidDirective">True</Compiler> |
<Compiler Name="PackageNoLink">True</Compiler> |
<Compiler Name="PackageThreadVar">True</Compiler> |
<Compiler Name="ImplicitImport">True</Compiler> |
<Compiler Name="HPPEMITIgnored">True</Compiler> |
<Compiler Name="NoRetVal">True</Compiler> |
<Compiler Name="UseBeforeDef">True</Compiler> |
<Compiler Name="ForLoopVarUndef">True</Compiler> |
<Compiler Name="UnitNameMismatch">True</Compiler> |
<Compiler Name="NoCFGFileFound">True</Compiler> |
<Compiler Name="ImplicitVariants">True</Compiler> |
<Compiler Name="UnicodeToLocale">True</Compiler> |
<Compiler Name="LocaleToUnicode">True</Compiler> |
<Compiler Name="ImagebaseMultiple">True</Compiler> |
<Compiler Name="SuspiciousTypecast">True</Compiler> |
<Compiler Name="PrivatePropAccessor">True</Compiler> |
<Compiler Name="UnsafeType">False</Compiler> |
<Compiler Name="UnsafeCode">False</Compiler> |
<Compiler Name="UnsafeCast">False</Compiler> |
<Compiler Name="OptionTruncated">True</Compiler> |
<Compiler Name="WideCharReduced">True</Compiler> |
<Compiler Name="DuplicatesIgnored">True</Compiler> |
<Compiler Name="UnitInitSeq">True</Compiler> |
<Compiler Name="LocalPInvoke">True</Compiler> |
<Compiler Name="MessageDirective">True</Compiler> |
<Compiler Name="CodePage"></Compiler> |
</Compiler> |
<Linker> |
<Linker Name="MapFile">0</Linker> |
<Linker Name="OutputObjs">0</Linker> |
<Linker Name="GenerateHpps">False</Linker> |
<Linker Name="ConsoleApp">1</Linker> |
<Linker Name="DebugInfo">False</Linker> |
<Linker Name="RemoteSymbols">False</Linker> |
<Linker Name="GenerateDRC">False</Linker> |
<Linker Name="MinStackSize">16384</Linker> |
<Linker Name="MaxStackSize">1048576</Linker> |
<Linker Name="ImageBase">4194304</Linker> |
<Linker Name="ExeDescription"></Linker> |
</Linker> |
<Directories> |
<Directories Name="OutputDir"></Directories> |
<Directories Name="UnitOutputDir"></Directories> |
<Directories Name="PackageDLLOutputDir"></Directories> |
<Directories Name="PackageDCPOutputDir"></Directories> |
<Directories Name="SearchPath"></Directories> |
<Directories Name="Packages"></Directories> |
<Directories Name="Conditionals"></Directories> |
<Directories Name="DebugSourceDirs"></Directories> |
<Directories Name="UsePackages">False</Directories> |
</Directories> |
<Parameters> |
<Parameters Name="RunParams"></Parameters> |
<Parameters Name="HostApplication"></Parameters> |
<Parameters Name="Launcher"></Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="DebugCWD"></Parameters> |
<Parameters Name="Debug Symbols Search Path"></Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
</Parameters> |
<Language> |
<Language Name="ActiveLang"></Language> |
<Language Name="ProjectLang">$00000000</Language> |
<Language Name="RootDir"></Language> |
</Language> |
<VersionInfo> |
<VersionInfo Name="IncludeVerInfo">False</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"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
</VersionInfoKeys> |
</Delphi.Personality> |
</BorlandProject> |
/trunk/WuLi.cfg |
---|
0,0 → 1,38 |
-$A8 |
-$B- |
-$C+ |
-$D+ |
-$E- |
-$F- |
-$G+ |
-$H+ |
-$I+ |
-$J- |
-$K- |
-$L+ |
-$M- |
-$N+ |
-$O+ |
-$P+ |
-$Q- |
-$R- |
-$S- |
-$T- |
-$U- |
-$V+ |
-$W- |
-$X+ |
-$YD |
-$Z1 |
-cg |
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
-H+ |
-W+ |
-M |
-$M16384,1048576 |
-K$00400000 |
-LE"C:\Users\user\Documents\Borland Studio-Projekte\Bpl" |
-LN"C:\Users\user\Documents\Borland Studio-Projekte\Bpl" |
-w-UNSAFE_TYPE |
-w-UNSAFE_CODE |
-w-UNSAFE_CAST |
/trunk/WuLi.dpr |
---|
0,0 → 1,21 |
program WuLi; |
uses |
Forms, |
WuLiMain in 'WuLiMain.pas' {Form1}, |
Mitarbeiter in 'Mitarbeiter.pas' {frmMitarbeiter}, |
Versionen in 'Versionen.pas' {frmVersionen}, |
Module in 'Module.pas' {frmModule}, |
Projekte in 'Projekte.pas' {frmProdukte}; |
{$R *.res} |
begin |
Application.Initialize; |
Application.CreateForm(TForm1, Form1); |
Application.CreateForm(TfrmMitarbeiter, frmMitarbeiter); |
Application.CreateForm(TfrmVersionen, frmVersionen); |
Application.CreateForm(TfrmModule, frmModule); |
Application.CreateForm(TfrmProdukte, frmProdukte); |
Application.Run; |
end. |
/trunk/WuLi.res |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
Property changes: |
Added: svn:mime-type |
+application/octet-stream |
\ No newline at end of property |
/trunk/WuLiMain.dfm |
---|
0,0 → 1,306 |
object Form1: TForm1 |
Left = 0 |
Top = 0 |
Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows' |
ClientHeight = 440 |
ClientWidth = 691 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
Menu = MainMenu1 |
OldCreateOrder = False |
Position = poScreenCenter |
PixelsPerInch = 96 |
TextHeight = 13 |
object Label1: TLabel |
Left = 247 |
Top = 53 |
Width = 50 |
Height = 13 |
Caption = 'Bearbeiter' |
end |
object Label2: TLabel |
Left = 247 |
Top = 149 |
Width = 20 |
Height = 13 |
Caption = 'Titel' |
end |
object Label3: TLabel |
Left = 472 |
Top = 53 |
Width = 33 |
Height = 13 |
Caption = 'Erstellt' |
end |
object Label4: TLabel |
Left = 472 |
Top = 101 |
Width = 29 |
Height = 13 |
Caption = 'Gefixt' |
end |
object Label5: TLabel |
Left = 247 |
Top = 101 |
Width = 28 |
Height = 13 |
Caption = 'Modul' |
end |
object Label6: TLabel |
Left = 472 |
Top = 149 |
Width = 119 |
Height = 13 |
Caption = 'Ver'#246'ffentlicht als Version' |
end |
object DBNavigator1: TDBNavigator |
Left = 247 |
Top = 16 |
Width = 224 |
Height = 25 |
DataSource = dsBugs |
VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel] |
TabOrder = 0 |
end |
object DBRichEdit1: TDBRichEdit |
Left = 247 |
Top = 208 |
Width = 402 |
Height = 209 |
DataField = 'beschreibung' |
DataSource = dsBugs |
TabOrder = 1 |
end |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 47 |
Width = 233 |
Height = 370 |
DataSource = dsBugs |
TabOrder = 2 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
TitleFont.Height = -11 |
TitleFont.Name = 'Tahoma' |
TitleFont.Style = [] |
Columns = < |
item |
Expanded = False |
FieldName = 'id' |
Width = 46 |
Visible = True |
end |
item |
Expanded = False |
FieldName = 'titel' |
Width = 111 |
Visible = True |
end |
item |
Expanded = False |
FieldName = 'wichtigkeit' |
Width = 36 |
Visible = True |
end> |
end |
object DBEdit1: TDBEdit |
Left = 247 |
Top = 168 |
Width = 186 |
Height = 21 |
DataField = 'titel' |
DataSource = dsBugs |
TabOrder = 3 |
end |
object DBLookupComboBox1: TDBLookupComboBox |
Left = 247 |
Top = 72 |
Width = 186 |
Height = 21 |
DataField = 'bearbeiter' |
DataSource = dsBugs |
KeyField = 'id' |
ListField = 'name' |
ListSource = dsMitarbeiter |
TabOrder = 4 |
end |
object DBEdit2: TDBEdit |
Left = 472 |
Top = 72 |
Width = 121 |
Height = 21 |
Color = clBtnFace |
DataField = 'erstellt' |
DataSource = dsBugs |
ReadOnly = True |
TabOrder = 5 |
end |
object DBEdit3: TDBEdit |
Left = 472 |
Top = 120 |
Width = 121 |
Height = 21 |
Color = clBtnFace |
DataField = 'fixdatum' |
DataSource = dsBugs |
ReadOnly = True |
TabOrder = 6 |
end |
object DBLookupComboBox2: TDBLookupComboBox |
Left = 247 |
Top = 120 |
Width = 186 |
Height = 21 |
DataField = 'modul' |
DataSource = dsBugs |
KeyField = 'id' |
ListField = 'modul' |
ListSource = dsModule |
TabOrder = 7 |
end |
object DBLookupComboBox3: TDBLookupComboBox |
Left = 472 |
Top = 168 |
Width = 121 |
Height = 21 |
DataField = 'version_release' |
DataSource = dsBugs |
KeyField = 'id' |
ListField = 'version' |
ListSource = dsVersionen |
TabOrder = 8 |
end |
object TrackBar1: TTrackBar |
Left = 477 |
Top = 8 |
Width = 150 |
Height = 45 |
Position = 5 |
TabOrder = 9 |
OnChange = TrackBar1Change |
end |
object ComboBox1: TComboBox |
Left = 8 |
Top = 8 |
Width = 233 |
Height = 21 |
Style = csDropDownList |
ItemHeight = 13 |
ItemIndex = 0 |
TabOrder = 10 |
Text = 'Meine offene Bugs (nach Wichtigkeit)' |
Items.Strings = ( |
'Meine offene Bugs (nach Wichtigkeit)' |
'Alle ofene Bugs (nach Wichtigkeit)' |
'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)' |
'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)') |
end |
object ADOConnection1: TADOConnection |
Connected = True |
ConnectionString = |
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' + |
' RAS;Initial Catalog=bugtracker' |
LoginPrompt = False |
Left = 336 |
Top = 344 |
end |
object dsBugs: TDataSource |
DataSet = qryBugs |
Left = 400 |
Top = 312 |
end |
object tblMitarbeiter: TADOTable |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'mitarbeiter' |
Left = 440 |
Top = 344 |
end |
object dsMitarbeiter: TDataSource |
DataSet = tblMitarbeiter |
Left = 440 |
Top = 312 |
end |
object MainMenu1: TMainMenu |
Left = 640 |
Top = 48 |
object Stammdaten1: TMenuItem |
Caption = 'Stammdaten' |
object Mitarbeiter1: TMenuItem |
Caption = 'Mitarbeiter' |
OnClick = Mitarbeiter1Click |
end |
object Projekte1: TMenuItem |
Caption = 'Projekte' |
OnClick = Projekte1Click |
end |
object Module1: TMenuItem |
Caption = 'Module' |
OnClick = Module1Click |
end |
object Versionen1: TMenuItem |
Caption = 'Versionen' |
OnClick = Versionen1Click |
end |
end |
end |
object XPManifest1: TXPManifest |
Left = 640 |
Top = 8 |
end |
object qryBugs: TADOQuery |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
AfterScroll = qryBugsAfterScroll |
Parameters = <> |
SQL.Strings = ( |
'SELECT * FROM bugs order by wichtigkeit') |
Left = 400 |
Top = 344 |
end |
object tblVersionen: TADOTable |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'versionen' |
Left = 472 |
Top = 344 |
end |
object dsVersionen: TDataSource |
DataSet = tblVersionen |
Left = 472 |
Top = 312 |
end |
object tblProjekte: TADOTable |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'projekte' |
Left = 504 |
Top = 344 |
end |
object dsProjekte: TDataSource |
DataSet = tblProjekte |
Left = 504 |
Top = 312 |
end |
object tblModule: TADOTable |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'module' |
Left = 536 |
Top = 344 |
end |
object dsModule: TDataSource |
DataSet = tblModule |
Left = 536 |
Top = 312 |
end |
end |
/trunk/WuLiMain.pas |
---|
0,0 → 1,111 |
unit WuLiMain; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, DBXpress, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls, |
ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan; |
type |
TForm1 = class(TForm) |
ADOConnection1: TADOConnection; |
dsBugs: TDataSource; |
DBNavigator1: TDBNavigator; |
DBRichEdit1: TDBRichEdit; |
DBGrid1: TDBGrid; |
DBEdit1: TDBEdit; |
DBLookupComboBox1: TDBLookupComboBox; |
tblMitarbeiter: TADOTable; |
dsMitarbeiter: TDataSource; |
Label1: TLabel; |
Label2: TLabel; |
MainMenu1: TMainMenu; |
Stammdaten1: TMenuItem; |
Mitarbeiter1: TMenuItem; |
Projekte1: TMenuItem; |
Module1: TMenuItem; |
XPManifest1: TXPManifest; |
qryBugs: TADOQuery; |
DBEdit2: TDBEdit; |
DBEdit3: TDBEdit; |
Label3: TLabel; |
Label4: TLabel; |
tblVersionen: TADOTable; |
dsVersionen: TDataSource; |
tblProjekte: TADOTable; |
dsProjekte: TDataSource; |
tblModule: TADOTable; |
dsModule: TDataSource; |
Versionen1: TMenuItem; |
DBLookupComboBox2: TDBLookupComboBox; |
Label5: TLabel; |
DBLookupComboBox3: TDBLookupComboBox; |
Label6: TLabel; |
TrackBar1: TTrackBar; |
ComboBox1: TComboBox; |
procedure Mitarbeiter1Click(Sender: TObject); |
procedure DateTimePicker1CloseUp(Sender: TObject); |
procedure qryBugsAfterScroll(DataSet: TDataSet); |
procedure Module1Click(Sender: TObject); |
procedure Projekte1Click(Sender: TObject); |
procedure Versionen1Click(Sender: TObject); |
procedure TrackBar1Change(Sender: TObject); |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
Form1: TForm1; |
implementation |
uses Mitarbeiter, Module, Versionen, Projekte; |
{$R *.dfm} |
procedure TForm1.qryBugsAfterScroll(DataSet: TDataSet); |
begin |
// DateTimePicker1.DateTime := qryBugs.FieldByName('fixdatum').AsDateTime; |
// TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger; |
end; |
procedure TForm1.TrackBar1Change(Sender: TObject); |
begin |
if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit; |
qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position; |
end; |
procedure TForm1.Versionen1Click(Sender: TObject); |
begin |
frmVersionen.ShowModal; |
end; |
procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); |
begin |
(* |
LockWindowUpdate(DBGrid1.Handle); |
if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit; |
qryBugs.FieldByName('fixdatum').AsDateTime := DateTimePicker1.DateTime; |
LockWindowUpdate(0); |
*) |
end; |
procedure TForm1.Mitarbeiter1Click(Sender: TObject); |
begin |
frmMitarbeiter.ShowModal; |
end; |
procedure TForm1.Module1Click(Sender: TObject); |
begin |
frmModule.ShowModal; |
end; |
procedure TForm1.Projekte1Click(Sender: TObject); |
begin |
frmProjekte.ShowModal; |
end; |
end. |
/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 */; |
/trunk/. |
---|
Property changes: |
Added: svn:ignore |
+*.dcu |
+*.exe |
+__history |
+*.local |