unit basic;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, Db, ADODB,
  DBTables, DBCtrls, Mask, jpeg, ImgList;

type
  Tf_basic = class(TForm)
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    GroupBox3: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn10: TBitBtn;
    TabSheet2: TTabSheet;
    Label9: TLabel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    DBNavigator1: TDBNavigator;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    BitBtn7: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    SpeedButton2: TSpeedButton;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    ComboBox2: TComboBox;
    Edit9: TEdit;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    namerq: TEdit;
    BitBtn9: TBitBtn;
    Query1: TQuery;
    ADOConnection1: TADOConnection;
    importTable: TADOTable;
    Table1: TTable;
    Label27: TLabel;
    ImageList1: TImageList;
    Image1: TImage;
    originaldb: TDataSource;
    imlddb: TDataSource;
    imcwdb: TDataSource;
    Query2: TQuery;
    Label28: TLabel;
    Edit16: TEdit;
    Panel3: TPanel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    BitBtn14: TBitBtn;
    importPanel: TPanel;
    panel5: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox8: TGroupBox;
    DBGrid3: TDBGrid;
    Panel2: TPanel;
    GroupBox9: TGroupBox;
    DBGrid2: TDBGrid;
    importedit: TEdit;
    querybtn: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    Label29: TLabel;
    Panel4: TPanel;
    Label30: TLabel;
    Edit26: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    GroupBox7: TGroupBox;
    DBGrid4: TDBGrid;
    Panel6: TPanel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Query2BDEDesigner: TIntegerField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TStringField;
    Query2BDEDesigner5: TStringField;
    Query2BDEDesigner6: TStringField;
    Query2BDEDesigner7: TStringField;
    Query2BDEDesigner8: TStringField;
    Query2BDEDesigner9: TStringField;
    Query2BDEDesigner10: TStringField;
    Query2BDEDesigner11: TStringField;
    Query2BDEDesigner12: TStringField;
    Query2BDEDesigner13: TStringField;
    Query2BDEDesigner14: TStringField;
    Query2BDEDesigner15: TStringField;
    Query2BDEDesigner16: TStringField;
    Query2BDEDesigner17: TStringField;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TStringField;
    Query1BDEDesigner11: TStringField;
    Query1BDEDesigner12: TStringField;
    Query1BDEDesigner13: TStringField;
    Query1BDEDesigner14: TStringField;
    Query1BDEDesigner15: TStringField;
    Query1BDEDesigner16: TStringField;
    Query1BDEDesigner17: TStringField;
    Query1BDEDesigner18: TStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit17KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit20KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit21KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit23KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit24KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn9Click(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure querybtnClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure FormShow(Sender: TObject);

    

  //  procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
   electtype,delegate,reclaimld,supplyld,reclaimcw,supplycw:integer;  //選舉類型,代表數(shù),回收票數(shù)
  datapath:string;//數(shù)據(jù)庫得路徑
  initial:boolean;//是否初始化 { Public declarations }
  end;

var
  f_basic: Tf_basic;
  tabletype,electtype,delegate,reclaimld,supplyld,reclaimcw,supplycw:integer;  //
  datapath,importname:string;//
  basicflag:boolean;//是否初始化
implementation
uses
   datamd,main1,inforpt, vote;
{$R *.DFM}




procedure Tf_basic.BitBtn2Click(Sender: TObject);
begin
 f_basic.StatusBar1.Panels[0].Text:='當(dāng)前日期'+datetostr(date);//顯示日期
 //basicflag:=true;
 try
 delegate:=strtoint(edit7.text);  //代表數(shù)
 except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit7.SetFocus;
     exit;
     end;
  end;
 if electtype=1 then
 begin
 try
 supplyld:=strtoint(edit26.text);  //代表數(shù)
 except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit26.SetFocus;
     exit;
     end;
  end;

 try
 reclaimld:=strtoint(edit8.text);  //代表數(shù)
 except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit8.SetFocus;
     exit;
     end;
  end;
  reclaimcw:=0;
  supplycw:=0;
  end
 else
  begin
  try
  supplyld:=strtoint(edit27.text);
  except
     on Econverterror do
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit27.SetFocus;
     exit;
     end;
  end;
  try
 reclaimld:=strtoint(edit28.text);  //代表數(shù)
 except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit28.SetFocus;
     exit;
     end;
  end;
  try
 supplycw:=strtoint(edit29.text);  //代表數(shù)
 except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit29.SetFocus;
     exit;
     end;
  end;
  try
  reclaimcw:=strtoint(edit30.text);  //代表數(shù)
  except
     on Econverterror do//判斷輸入是否為整數(shù)
     begin
     showmessage('輸入錯(cuò)誤.請重新輸入');
     edit30.SetFocus;
     exit;
     end;
  end;
  end;

 //回收票數(shù)
 //electtype:=radiogroup1.ItemIndex;//選舉類型

 if reclaimld>supplyld then
   begin
     messagedlg('領(lǐng)導(dǎo)回收票數(shù)多于實(shí)發(fā)票數(shù)，選舉無效，請重新確認(rèn)!',mtwarning,[mbok],0);
   end;
 if reclaimcw>supplycw then
   begin
     messagedlg('常委回收票數(shù)多于實(shí)發(fā)票數(shù)，選舉無效，請重新確認(rèn)!',mtwarning,[mbok],0);
   end;
   with   datamd.DataModule1.basicTable do
     begin
     open;
     first;
     edit;
     if electtype=1 then
     setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit26.text,edit8.text,nil,nil,electtype])
     else
     setfields([edit1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit27.text,edit28.text,edit29.text,edit30.text,electtype]);
     //將基本信息寫回?cái)?shù)據(jù)庫
     post;
     end;

end;

procedure Tf_basic.BitBtn8Click(Sender: TObject);
begin
if messagedlg('要導(dǎo)入新的數(shù)據(jù)庫嗎?',mtconfirmation,[mbyes,mbno],0)=mryes then
 begin
  main1.f_main1.GradBtn2.Enabled:=true;
  main1.f_main1.GradBtn3.Enabled:=true;//恢復(fù)2，3功能
  basic.f_basic.SpeedButton2.Enabled:=true;//初始化
  opendialog1.Filter:='FOXPRO表文件(*.dbf)|*.dbf';
  opendialog1.Title:='打開委員信息表';
  if basic.f_basic.OpenDialog1.Execute then
  begin
  datapath:=extractfiledir(opendialog1.FileName);
  adoconnection1.Connected:=false;
  adoconnection1.ConnectionString:=
  'Provider=MSDASQL.1;Persist Security Info=False;Connect Timeout=15;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB='+datapath+';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;";Locale Identifier=2052';
  //導(dǎo)入信息表