jgzxyhdz.pas

ProviceSystem-公积金监管系统中心端

unit JGZxYhDz;

interface

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

type
  TFormJGZxYhDz = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Edit3: TEdit;
    Button3: TButton;
    ToolButton7: TToolButton;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
//    dsbh,yhbh,kmbm,yhzh,zy,cdb:string;
    fURL: String;
    isAdd: Boolean;
  public
    { Public declarations }
  end;

var
  FormJGZxYhDz: TFormJGZxYhDz;

implementation

{$R *.dfm}
uses uDMFunc, uUserFunc, uConstUtils, frmPJgMain;

procedure TFormJGZxYhDz.FormCreate(Sender: TObject);
var
  aCity: TCityDynArray;
  aKhyh: TKhyhDynArray;
  i: smallint;
begin
  isAdd := False;
  DsInfo(aCity);
  ComboBox1.Clear;
  for i:=0 to high(aCity) do
    Combobox1.Items.Add(aCity[i].bh +' '+ aCity[i].mc );
  KhyhInfo(aKhyh);
  ComboBox2.Clear;
  for i:=0 to high(aKhyh) do
    Combobox2.Items.Add(aKhyh[i].bh +' '+ aKhyh[i].mc );
  DBGrid1.Columns.Items[0].Width := 100;
  DBGrid1.Columns.Items[1].Width := 100;
  DBGrid1.Columns.Items[2].Width := 200;

end;

procedure TFormJGZxYhDz.ToolButton1Click(Sender: TObject);
begin
  isAdd := true;
  edit3.Text:='';
  edit1.Text:='';
  edit2.Text:='';
  Edit1.Enabled := True;
  EDit2.Enabled := True;
  Edit3.Enabled := True;
  ToolButton1.Enabled := False;
  ToolButton2.Enabled := False;
  ToolButton3.Enabled := False;
  ToolButton5.Enabled := True;
  ToolButton6.Enabled := True;
  DBGrid1.Enabled := False;
  Edit3.SetFocus;
end;

procedure TFormJGZxYhDz.ToolButton6Click(Sender: TObject);
begin
  ToolButton1.Enabled := True;
  ToolButton2.Enabled := True;
  ToolButton3.Enabled := True;
  ToolButton5.Enabled := False;
  ToolButton6.Enabled := False;
  Edit1.Enabled := False;
  EDit2.Enabled := False;
  Edit3.Enabled := False;
  DBGrid1.Enabled := True;
end;

procedure TFormJGZxYhDz.Button3Click(Sender: TObject);
var
  kmh:string;
  cDb:string;
begin
  if SelectKm(fURL,kmh) then
    Edit3.Text := kmh;
end;

procedure TFormJGZxYhDz.ToolButton2Click(Sender: TObject);
var
  sCity,sBank,sSubject,sAccount,sSummary: String;
begin
  if Application.MessageBox('是否要删除当前记录？',PMsgCaption,36)=6 then
  begin
    SubjectCollateRec(sCity,sBank,sSubject,sAccount,sSummary);
    if DelSubjectCollate(sCity,sBank,sSubject,sAccount) =0 then
    begin
      Application.MessageBox('删除成功',PMsgCaption,64);
      Button1.Click;
    end
    else
      Application.MessageBox('删除失败！',PMsgCaption,48);
  end;
end;

procedure TFormJGZxYhDz.ToolButton3Click(Sender: TObject);
var
  sCity,sBank,sSubject,sAccount,sSummary: String;
begin
  isAdd := False;
  SubjectCollateRec(sCity,sBank,sSubject,sAccount,sSummary);
  Edit3.Text := sSubject;
  Edit1.Text := sAccount;
  Edit2.Text := sSummary;
  Edit1.Enabled := False;
  EDit2.Enabled := True;
  Edit3.Enabled := False;
  ToolButton1.Enabled := False;
  ToolButton2.Enabled := False;
  ToolButton3.Enabled := False;
  ToolButton5.Enabled := True;
  ToolButton6.Enabled := True;
  DBGrid1.Enabled := False;
  Edit2.SetFocus;
end;

procedure TFormJGZxYhDz.ToolButton5Click(Sender: TObject);
var
  sCity, sBank, sSummary, sSubject,sAccount: String;
  i: smallint;
begin
  i := Pos(' ', Combobox1.Text)-1;
  sCity := trim(Copy(ComboBox1.Text,1,i));
  i := Pos(' ', Combobox2.Text)-1;
  sBank := trim(Copy(ComboBox2.Text,1,i));
  sSummary:= trim(edit2.Text);
  sSubject := trim(Edit3.Text);
  sAccount := Trim(Edit1.Text);
  if sSubject='' then
  begin
    Application.MessageBox('请输入科目',PMsgCaption,64);
    Edit3.SetFocus;
    exit;
  end;
  if sAccount='' then
  begin
    Application.MessageBox('请输入银行帐号',PMsgCaption,64);
    Edit1.SetFocus;
    exit;
  end;
  if isAdd and IsExistSubjectCollate(sCity,sBank,sAccount) then
  begin
    Application.MessageBox('此银行帐号设置',PMsgCaption,64);
    Edit1.SetFocus;
    exit;
  end;
  if SaveSubjectCollate(sCity,sBank,sSubject,sAccount,sSummary)=0 then
  begin
    SearchSubjectCollate(sCity,sBank,DBGrid1);
    Toolbutton6.Click;
    Application.MessageBox('存盘成功',PMsgCaption,64);
  end
  else
    Application.MessageBox('存盘失败！',PMsgCaption,48);
end;

procedure TFormJGZxYhDz.ToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TFormJGZxYhDz.Button2Click(Sender: TObject);
begin
  Combobox1.Enabled := True;
  ComboBox2.Enabled := True;
  ToolButton1.Enabled := False;
  ToolButton2.Enabled := False;
  ToolButton3.Enabled := False;
  ToolButton5.Enabled := False;
  ToolButton6.Enabled := False;
  DBGrid1.DataSource := nil;
end;

procedure TFormJGZxYhDz.Button1Click(Sender: TObject);
var
  sCity, sBank: String;
  i: smallint;
begin
  i := Pos(' ', Combobox1.Text)-1;
  sCity := trim(Copy(ComboBox1.Text,1,i));
  i := Pos(' ', Combobox2.Text)-1;
  sBank := trim(Copy(ComboBox2.Text,1,i));
  if (sCity='') then
  begin
    Application.MessageBox('请选择地市',PMsgCaption,64);
    ComboBox1.SetFocus;
    exit;
  end;
  if (sBank='') then
  begin
    Application.MessageBox('请选择银行',PMsgCaption,64);
    ComboBox2.SetFocus;
    exit;
  end;
  SearchSubjectCollate(sCity,sBank,DBGrid1);
  ToolButton1.Enabled := True;
  ToolButton2.Enabled := True;
  ToolButton3.Enabled := True;
  ToolButton6.Click;
  Combobox1.Enabled := False;
  ComboBox2.Enabled := False;
  for i:=0 to high(MainP.aNode) do
    if MainP.aNode[i].Number = sCity then
      fURL := MainP.aNode[i].URL;
end;

end.