uni_tiein_branchs.pas

一个非常不错的经费报销管理软件

unit Uni_Tiein_Branchs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrlsEh, DBLookupEh, XPMenu, DB, Menus,
  ExtCtrls, Buttons, Grids, DBGridEh, Gauges, ComCtrls, ToolWin;

type
  TFrm_Tiein_Branchs = class(TForm)
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    CBX_ZT: TComboBox;
    P_Tiein_Branchs: TPanel;
    SPB_Net: TSpeedButton;
    Label1: TLabel;
    Panel2: TPanel;
    DBG_bsTiein_Branchs: TDBGridEh;
    dsbsTiein_Branchs: TDataSource;
    ToolBar1: TToolBar;
    TB_out: TToolButton;
    TB_in: TToolButton;
    Gauge: TGauge;
    StatusBar1: TStatusBar;
    procedure CBX_ZTEnter(Sender: TObject);
    procedure SPB_NetClick(Sender: TObject);
    procedure CBX_ZTChange(Sender: TObject);
    procedure TB_outClick(Sender: TObject);
    procedure TB_inClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Tiein_Branchs: TFrm_Tiein_Branchs;

implementation

{$R *.dfm}

uses Uni_dm,Uni_Function,Uni_Main;

procedure TFrm_Tiein_Branchs.CBX_ZTEnter(Sender: TObject);
begin
  CBX_ZT.Items.Clear;
  with DM do
  begin
    bsTieinSetup.Close;
    bsTieinSetup.Open;
    while not bsTieinSetup.Eof do
    begin
      CBX_ZT.Items.Add(bsTieinSetup.FieldByName('Ztmc').AsString);
      bsTieinSetup.Next;
    end;
  end;
  CBX_ZT.ItemIndex:=0;
end;

procedure TFrm_Tiein_Branchs.SPB_NetClick(Sender: TObject);
begin
  if DM.bsTieinSetup.Locate('Ztmc',CBX_ZT.Text,[]) then
  begin
    if TieDataOpen then
    begin
      P_Tiein_Branchs.Visible:=True;
    end
    else
    begin
      P_Tiein_Branchs.Visible:=False;
    end;
  end;
end;

procedure TFrm_Tiein_Branchs.CBX_ZTChange(Sender: TObject);
begin
  P_Tiein_Branchs.Visible:=False;
end;

procedure TFrm_Tiein_Branchs.TB_outClick(Sender: TObject);
VAR
  i,L:Integer;
begin
  try
    DM.R9bmxx.Close;
    DM.R9bmxx.SQL.Text:='select *from bmxx';
    DM.R9bmxx.Open;
    if DM.R9bmxx.IsEmpty then
    begin
      MessageBoxInfo('无下载数据！！');
      Exit;
    end;
    //
    Gauge.Progress:=0;
    Gauge.MaxValue:=DM.R9bmxx.RecordCount*2;
    Gauge.Visible:=True;
    DBG_bsTiein_Branchs.DataSource:=nil;
    DM.bsTiein_Branchs.Close;
    DM.bsTiein_Branchs.SQL.Text:='delete From bsTiein_Branchs';
    DM.bsTiein_Branchs.ExecSQL;
    //
    DM.bsTiein_Branchs.Close;
    DM.bsTiein_Branchs.SQL.Text:='select *From bsTiein_Branchs';
    DM.bsTiein_Branchs.Open;
    while not DM.R9bmxx.Eof
    do begin
      DM.bsTiein_Branchs.append;
      DM.bsTiein_Branchs.FieldByName('bmdm').AsString:=DM.R9bmxx.FieldByName('bmdm').AsString;
      DM.bsTiein_Branchs.FieldByName('bmmc').AsString:=DM.R9bmxx.FieldByName('bmmc').AsString;
      DM.bsTiein_Branchs.FieldByName('kjm').AsString:=DM.R9bmxx.FieldByName('kjm').AsString;
      DM.bsTiein_Branchs.FieldByName('fzrdm').AsString:=DM.R9bmxx.FieldByName('fzrdm').AsString;
      DM.bsTiein_Branchs.FieldByName('xjbms').AsInteger:=DM.R9bmxx.FieldByName('xjbms').AsInteger;
      DM.bsTiein_Branchs.FieldByName('zgrs').AsInteger:=DM.R9bmxx.FieldByName('zgrs').AsInteger;
      DM.bsTiein_Branchs.FieldByName('syzt').AsString:=DM.R9bmxx.FieldByName('syzt').AsString;
      DM.bsTiein_Branchs.FieldByName('zwbmdm').AsString:=DM.R9bmxx.FieldByName('zwbmdm').AsString;
      DM.bsTiein_Branchs.FieldByName('zwsyzt').AsString:=DM.R9bmxx.FieldByName('zwsyzt').AsString;
      DM.bsTiein_Branchs.Post;
      Gauge.Progress:=Gauge.Progress+1;
      DM.R9bmxx.Next;
    end;
    //
    DM.bsTiein_Branchs.Close;
    DM.bsTiein_Branchs.SQL.Text:='select *From  bsTiein_Branchs order by len(bmdm)';
    DM.bsTiein_Branchs.Open;
    i:=0;
    L:=0;
    while not DM.bsTiein_Branchs.Eof do
    begin
      IF Length(Trim(DM.bsTiein_Branchs.FieldByName('bmdm').AsString))<>L THEN
      begin
        i:=i+1;
        L:=Length(Trim(DM.bsTiein_Branchs.FieldByName('bmdm').AsString));
      end;
      //
      DM.bsTiein_Branchs.Edit;
      DM.bsTiein_Branchs.FieldByName('iGrade').AsInteger:=i;
      DM.bsTiein_Branchs.Post;
      //
      Gauge.Progress:=Gauge.Progress+1;
      DM.bsTiein_Branchs.Next;
    end;
    DM.bsTiein_Branchs.Close;
    DM.bsTiein_Branchs.SQL.Text:='select *From  bsTiein_Branchs order by bmdm';
    DM.bsTiein_Branchs.Open;
    DBG_bsTiein_Branchs.DataSource:=dsbsTiein_Branchs;
    MessageBoxInfo('数据下载完毕！共'+IntToStr(DM.R9bmxx.RecordCount)+'条记录。');
  except
    MessageBoxError('数据下载失败！');
  end;
end;

procedure TFrm_Tiein_Branchs.TB_inClick(Sender: TObject);
begin
  try
    DM.bsTiein_Branchs.Close;
    DM.bsTiein_Branchs.SQL.Text:='select *From  bsTiein_Branchs order by bmdm';
    DM.bsTiein_Branchs.Open;

    Gauge.Progress:=0;
    Gauge.MaxValue:=DM.bsTiein_Branchs.RecordCount;
    Gauge.Visible:=True;
    DBG_bsTiein_Branchs.Enabled:=False;

    DM.bsBranchs.Close;
    DM.bsBranchs.SQL.Text:='select *from bsbranchs where istate>0 order by cNum';
    DM.bsBranchs.Open;

    while not DM.bsTiein_Branchs.Eof do
    begin
      if DM.bsBranchs.Locate('cNum',Trim(DM.bsTiein_Branchs.FieldByName('bmdm').AsString),[]) then
      begin
        //覆盖
        DM.bsBranchs.Edit;
        DM.bsBranchs.FieldByName('cNum').AsString:=Trim(DM.bsTiein_Branchs.FieldByName('bmdm').AsString);
        DM.bsBranchs.FieldByName('cName').AsString:=Trim(DM.bsTiein_Branchs.FieldByName('bmmc').AsString);
        DM.bsBranchs.FieldByName('iGrade').AsInteger:=DM.bsTiein_Branchs.FieldByName('iGrade').AsInteger;
        DM.bsBranchs.FieldByName('iState').AsInteger:=1;
        DM.bsBranchs.Post;
      end
      else
      begin
        //插入
        DM.bsBranchs.Insert;
        DM.bsBranchs.FieldByName('id').AsString:=GetGUID;
        DM.bsBranchs.FieldByName('cNum').AsString:=Trim(DM.bsTiein_Branchs.FieldByName('bmdm').AsString);
        DM.bsBranchs.FieldByName('cName').AsString:=Trim(DM.bsTiein_Branchs.FieldByName('bmmc').AsString);
        DM.bsBranchs.FieldByName('iGrade').AsInteger:=DM.bsTiein_Branchs.FieldByName('iGrade').AsInteger;
        DM.bsBranchs.FieldByName('iState').AsInteger:=1;
        DM.bsBranchs.Post;
      end;
      Gauge.Progress:=Gauge.Progress+1;
      DM.bsTiein_Branchs.Next;
    end;
    DBG_bsTiein_Branchs.Enabled:=True;
    MessageBoxInfo('数据导入完毕！共'+IntToStr(DM.bsTiein_Branchs.RecordCount)+'条记录。');
  except
    MessageBoxError('数据导入失败！！');
  end;
end;

end.