116 lines
2.4 KiB
ObjectPascal
116 lines
2.4 KiB
ObjectPascal
unit uDevConfig;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, DB, Grids, BaseGrid,
|
|
AdvGrid, AdvUtil, AdvObj;
|
|
|
|
type
|
|
TfrmDevConfig = class(TForm)
|
|
Label1: TLabel;
|
|
cb_nilm: TComboBox;
|
|
Label2: TLabel;
|
|
AdvStringGrid1: TAdvStringGrid;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Button3: TButton;
|
|
Label3: TLabel;
|
|
cb_nilmCh: TComboBox;
|
|
Label4: TLabel;
|
|
edt_devName: TEdit;
|
|
edt_devID: TEdit;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure AdvStringGrid1ClickCell(Sender: TObject; ARow,
|
|
ACol: Integer);
|
|
private
|
|
{ Private declarations }
|
|
select_devID : integer;
|
|
public
|
|
{ Public declarations }
|
|
procedure ShowDev();
|
|
end;
|
|
|
|
var
|
|
frmDevConfig: TfrmDevConfig;
|
|
|
|
implementation
|
|
|
|
uses uMain;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmDevConfig.ShowDev();
|
|
var
|
|
idxNo, i, nilmid, nilmCh : integer;
|
|
devID, devName, S : string;
|
|
begin
|
|
try
|
|
|
|
|
|
except
|
|
on e : exception do
|
|
begin
|
|
frmMain.printlog('Database Connect Error :: '+e.Message + ' [DB]');
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TfrmDevConfig.FormShow(Sender: TObject);
|
|
begin
|
|
ShowDev();
|
|
end;
|
|
|
|
procedure TfrmDevConfig.Button1Click(Sender: TObject);
|
|
var
|
|
sql, devID, nilmID, nilmCh, S : string;
|
|
begin
|
|
sql := '';
|
|
S := '';
|
|
S := cb_nilm.Text;
|
|
nilmID := Copy(S, 1, Pos(':',S)-1);
|
|
nilmCh := cb_nilmCh.Text;
|
|
devID := edt_devID.Text;
|
|
|
|
sql := 'INSERT INTO dev_info VALUES(null, '+
|
|
''''+devID+''', '+
|
|
''+nilmID+', '+
|
|
''+nilmCh+', '+
|
|
''''+edt_devName.Text+''' '+
|
|
')';
|
|
frmMain.insertSQL(sql);
|
|
|
|
ShowDev();
|
|
|
|
end;
|
|
|
|
procedure TfrmDevConfig.AdvStringGrid1ClickCell(Sender: TObject; ARow,
|
|
ACol: Integer);
|
|
var
|
|
nilmID : integer;
|
|
begin
|
|
if ARow > 0 then
|
|
begin
|
|
select_devID := StrToIntDef(AdvStringGrid1.Cells[0, ARow], 0);
|
|
edt_DevID.Text := AdvStringGrid1.Cells[1, ARow];
|
|
edt_devName.Text := AdvStringGrid1.Cells[2, ARow];
|
|
nilmID := StrToIntDef( AdvStringGrid1.Cells[3, ARow], 0);
|
|
if nilmID > 0 then
|
|
begin
|
|
if frmMain.fNILM[nilmID].idxNo>0 then
|
|
begin
|
|
cb_nilm.Text := format('%d:%s',[nilmID, frmMain.fNILM[nilmID]._NAME]);
|
|
end;
|
|
end;
|
|
cb_nilmCh.Text := AdvStringGrid1.Cells[4, ARow];
|
|
//AdvStringGrid1.Cells[5, ARow] := '';
|
|
//AdvStringGrid1.Cells[6, ARow] := '';
|
|
//AdvStringGrid1.Cells[7, ARow] := '';
|
|
end;
|
|
end;
|
|
|
|
end.
|