retireaccountbat.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit RetireAccountBat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, Grids, DBGrids, StdCtrls, TFlatComboBoxUnit,
  TFlatEditUnit, TFlatSpeedButtonUnit, XPMenu, Menus, ActnList, ImgList,
  TFlatButtonUnit, ExtCtrls, DB, RxMemDS;

type
  TRetireAccountBat_frm = class(Tbasewin_frm)
    Panel4: TPanel;
    Label1: TLabel;
    FlatSpeedButton1: TFlatSpeedButton;
    Label34: TLabel;
    FlatEdit1: TFlatEdit;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    Panel3: TPanel;
    Panel2: TPanel;
    FlatButton1: TFlatButton;
    RMD: TRxMemoryData;
    DataSource1: TDataSource;
    RMDpsname: TStringField;
    RMDiscode: TStringField;
    DBGrid3: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RetireAccountBat_frm: TRetireAccountBat_frm;

implementation

uses datashare;

{$R *.dfm}

procedure TRetireAccountBat_frm.FormCreate(Sender: TObject);
begin
  //inherited;
  with datashare_frm.Query1   do
    begin
      close;
      sql.Clear ;
      sql.Add('select cpseno,cpname,cpcode from sbdb_cparch');
      prepare;
      open;
      Flatcombobox1.Items.Clear ;  
      Flatcombobox2.Items.Clear ;
      Flatcombobox3.Items.Clear ;
      while not eof do
        begin
          Flatcombobox1.Items.Add(Fieldbyname('cpname').AsString);
          Flatcombobox2.Items.Add(Fieldbyname('cpseno').AsString);
          Flatcombobox3.Items.Add(Fieldbyname('cpcode').AsString);
          next;   
        end;
      close;
    end;
end;

procedure TRetireAccountBat_frm.FlatComboBox1Change(Sender: TObject);
begin
   with DataShare_frm.Query2 do
     begin
       close;
       sql.Clear ;
       sql.Add('select psname,iscode from sbdb_rtarch where cpseno=:param');
       parambyname('param').AsString :=Flatcombobox2.Items[Flatcombobox1.itemindex];
       prepare;
       open;
       RMD.Close ;
       RMD.Open ;
       while not eof do
         begin
           RMD.AppendRecord([Fields[0].asstring,Fields[1].asstring]);
           next; 
         end;
     end;
end;

end.