unit DJDYCZ;

interface

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

type
  TFrm_DJDY = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CB_BDS: TComboBox;
    CB_Num: TComboBox;
    CB_Name: TComboBox;
    RG_ZH: TRadioGroup;
    RG_AC: TRadioGroup;
    BT_Sure: TButton;
    BT_Cancle: TButton;
    ADOQuery: TADOQuery;
    procedure BT_SureClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CB_NameChange(Sender: TObject);
    procedure CB_NumChange(Sender: TObject);
    procedure RG_ZHClick(Sender: TObject);
    procedure CB_BDSChange(Sender: TObject);
    procedure RG_ACClick(Sender: TObject);
    procedure BT_CancleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_DJDY: TFrm_DJDY;
  content:TKContent;
implementation
uses
  RptTable;
  
{$R *.dfm}

procedure TFrm_DJDY.BT_SureClick(Sender: TObject);
var
  qjnum,cznum,MidStr:string ;
begin
 //
  //獲取開關(guān)類型
  ADOQuery.Close;
  ADOQuery.SQL.Text:='select 開關(guān)類型 from DYQ where 電容器編號='''+CB_NUM.Text+'''';
  ADOQuery.Open;
  qjnum:=ADOQuery.FieldByName('開關(guān)類型').AsString;
  MidStr:='6kV'+CB_NAME.Text+CB_NUM.Text;
  case RG_ZH.ItemIndex of
    0:
    begin
      cznum:='ZH01';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關(guān)停電';
      content.B_Type:='ZH.ini';
    end;
    1:
    begin
      cznum:='ZH02';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關(guān)送電';
      content.B_Type:='ZH.ini';
    end;
    2:
    begin
      cznum:='ZH03';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'停電';
      content.B_Type:='ZH.ini';
    end;
    3:
    begin
      cznum:='ZH04';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'送電';
      content.B_Type:='ZH.ini';
    end;
  end;

  
  case RG_AC.ItemIndex of
    0:
    begin
      cznum:='AC01';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關(guān)停電檢修';
      content.B_Type:='AC1.ini';
    end;
    1:
    begin
      cznum:='AC02';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'開關(guān)拆除安措';
      content.B_Type:='AC1.ini';
    end;
    2:
    begin
      cznum:='AC03';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'停電檢修';
      content.B_Type:='AC1.ini';
    end;
    3:
    begin
      cznum:='AC04';
      content:=Frm_Com.GetData(qjnum,cznum,MidStr);
      content.Title:=MidStr+'拆除安措';
      content.B_Type:='AC1.ini';
    end;
  end;


 if (RG_ZH.ItemIndex=-1) and (RG_AC.ItemIndex=-1)then//if Trim(content.B_Type)='' then
  begin
    showmessage('請選擇票令類型!');
    exit;
  end;
  content.Body.Add(CB_BDS.Text);//發(fā)令單位

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

procedure TFrm_DJDY.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 DYQ where 變電所編號='''+BDS_NUM+'''';
  Self.ADOQuery.Open;
  Frm_Com.AddCoBoItem(CB_Num,'電容器編號',Self.ADOQuery);//添加開關(guān)編號
  Frm_Com.AddCoBoItem(CB_NAME,'電容器名稱',Self.ADOQuery);//添加開關(guān)名
  Self.ADOQuery.Close;
end;

procedure TFrm_DJDY.CB_NameChange(Sender: TObject);
begin
  CB_NUM.ItemIndex:=CB_Name.ItemIndex;
end;

procedure TFrm_DJDY.CB_NumChange(Sender: TObject);
begin
  CB_Name.ItemIndex:=CB_Num.ItemIndex;
end;

procedure TFrm_DJDY.RG_ZHClick(Sender: TObject);

begin
  RG_AC.ItemIndex:=-1;
 

end;

procedure TFrm_DJDY.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 DYQ where 變電所編號='''+BDS_NUM+'''';
  Self.ADOQuery.Open;
  Frm_Com.AddCoBoItem(CB_NUM,'電容器編號',Self.ADOQuery);//添加開關(guān)編號
  Frm_Com.AddCoBoItem(CB_NAME,'電容器名稱',Self.ADOQuery);//添加開關(guān)名
  Self.ADOQuery.Close;
end;

procedure TFrm_DJDY.RG_ACClick(Sender: TObject);
begin
  RG_ZH.ItemIndex:=-1;
end;


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

end.