unit KGCZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB,Common,IniFiles;

type
  TFrm_KGCZ = class(TForm)
    CB_BDS: TComboBox;
    CB_KGNAME: TComboBox;
    CB_KGNUM: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    BT_Sure: TButton;
    BT_Cancle: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    ADOQuery: TADOQuery;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    procedure BT_SureClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CB_KGNUMChange(Sender: TObject);
    procedure CB_KGNAMEChange(Sender: TObject);
    procedure CB_BDSChange(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BT_CancleClick(Sender: TObject);
  private
    { Private declarations }
    
  public
    { Public declarations }
  end;

var
  Frm_KGCZ: TFrm_KGCZ;
  content:TkContent;//票據內容
  S_Title,K_Type:string;
  SelectIndex:integer=-1;
implementation
uses
   RptTable;
{$R *.dfm}


procedure TFrm_KGCZ.BT_SureClick(Sender: TObject);
var
  qjnum,cznum,MidStr:string ;
begin
  //獲取操作內容
  if SelectIndex<1 then 
  begin
    showmessage('請選擇票令類型!');
    exit;
  end;

  ADOQuery.Close;
  ADOQuery.SQL.Text:='select 開關類型 from KG where 開關編號='''+CB_KGNUM.Text+'''';
  ADOQuery.Open;
  qjnum:=ADOQuery.FieldByName('開關類型').AsString;
  MidStr:='6kV'+CB_KGNAME.Text+CB_KGNUM.Text;

  case SelectIndex of
    1:
    begin
      cznum:='ZH01';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關停電';
      content.B_Type:='ZH.ini';
    end;
    2:
    begin
      cznum:='ZH02';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關送電';
      content.B_Type:='ZH.ini';
    end;
    3:
    begin
      cznum:='ZH03';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'線路停電';
      content.B_Type:='ZH.ini';
    end;
    4:
    begin
      cznum:='ZH04';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'線路送電';
      content.B_Type:='ZH.ini';
    end;
    5:
    begin
      cznum:='AC01';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關停電檢修';
      content.B_Type:='AC1.ini';
    end;
    6:
    begin
      cznum:='AC02';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關拆除安措';
      content.B_Type:='AC1.ini';
    end;
    7:
    begin
      cznum:='AC03';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'線路停電檢修';
      content.B_Type:='AC1.ini';
    end;
    8:
    begin
      cznum:='AC04';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'線路拆除安措';
      content.B_Type:='AC1.ini';
    end;
  end;

 {
  if Trim(content.B_Type)='' then
  begin
    showmessage('請選擇票令類型!');
    exit;
  end;
  }
  content.Body.Add(CB_BDS.Text);//發令單位

  //-->寫入配置信息
  if Frm_Com.WriteINI(content.B_Type)=false then
  begin
    showmessage('寫入配置信息時發生錯誤！配置文件可能丟失或損壞!');
    exit;
  end;
  //-->創建報表
  Self.Hide;
  Frm_Com.WriteData(content);
  Application.CreateForm(TFrm_Table,Frm_Table);
  Frm_Table.Show;
  SelectIndex:=-1;
  Self.Close;

end;

procedure TFrm_KGCZ.FormCreate(Sender: TObject);
var
  BDS_NUM:string;
begin
  Self.ADOQuery.Connection:=Frm_Com.ADOConnection;
  Self.ADOQuery.SQL.Text:='select * from BDS';
  Self.ADOQuery.Open;
  Frm_Com.AddCoBoItem(CB_BDS,'變電所名稱',Self.ADOQuery);//添加變電所
  Self.ADOQuery.SQL.Text:='select 變電所編號 from BDS where 變電所名稱='''+trim(CB_BDS.Text)+'''';
  Self.ADOQuery.Open;
  BDS_NUM:=trim(Self.ADOQuery.Fields[0].AsString);
  Self.ADOQuery.SQL.Text:='select * from KG where 變電所編號='''+BDS_NUM+'''';
  Self.ADOQuery.Open;
  Frm_Com.AddCoBoItem(CB_KGNUM,'開關編號',Self.ADOQuery);//添加開關編號
  Frm_Com.AddCoBoItem(CB_KGNAME,'開關名稱',Self.ADOQuery);//添加開關名
  Self.ADOQuery.Close;
end;

procedure TFrm_KGCZ.CB_KGNUMChange(Sender: TObject);
begin
  CB_KGNAME.ItemIndex:=CB_KGNUM.ItemIndex;
end;

procedure TFrm_KGCZ.CB_KGNAMEChange(Sender: TObject);
begin
 CB_KGNUM.ItemIndex :=CB_KGNAME.ItemIndex;
end;

procedure TFrm_KGCZ.CB_BDSChange(Sender: TObject);
var
  BDS_NUM:string;
begin
  Self.ADOQuery.SQL.Text:='select 變電所編號 from BDS where 變電所名稱='''+trim(CB_BDS.Text)+'''';
  Self.ADOQuery.Open;
  BDS_NUM:=trim(Self.ADOQuery.Fields[0].AsString);
  Self.ADOQuery.SQL.Text:='select * from KG where 變電所編號='''+BDS_NUM+'''';
  Self.ADOQuery.Open;
  Frm_Com.AddCoBoItem(CB_KGNUM,'開關編號',Self.ADOQuery);//添加開關編號
  Frm_Com.AddCoBoItem(CB_KGNAME,'開關名稱',Self.ADOQuery);//添加開關名
  Self.ADOQuery.Close;
end;

procedure TFrm_KGCZ.RadioButton1Click(Sender: TObject);

begin
  SelectIndex:=1;
  
end;

procedure TFrm_KGCZ.FormShow(Sender: TObject);
begin
  //初始化
  Content.Title:='';
end;

procedure TFrm_KGCZ.RadioButton3Click(Sender: TObject);
begin
  SelectIndex:=3;
end;

procedure TFrm_KGCZ.RadioButton4Click(Sender: TObject);
begin
  SelectIndex:=4;
end;

procedure TFrm_KGCZ.RadioButton5Click(Sender: TObject);
begin
  SelectIndex:=5;
end;

procedure TFrm_KGCZ.RadioButton6Click(Sender: TObject);
begin
 SelectIndex:=6;
end;

procedure TFrm_KGCZ.RadioButton7Click(Sender: TObject);
begin
  SelectIndex:=7;

end;

procedure TFrm_KGCZ.RadioButton8Click(Sender: TObject);
begin
  SelectIndex:=8;
  
end;


procedure TFrm_KGCZ.RadioButton2Click(Sender: TObject);
begin
  SelectIndex:=2;
end;

procedure TFrm_KGCZ.BT_CancleClick(Sender: TObject);
begin
  Close;
end;

end.