delphi进销存管理系统 很不错得进销存管理系统 有很多skin得

源代码在线查看: jxc.~dpr

软件大小: 1967 K
上传用户: tanhua1981
关键词: delphi skin 进销 管理系统
下载地址: 免注册下载 普通下载 VIP

相关代码

				program jxc;
				
				uses
				  Forms,
				  main_unit in 'main_unit.pas' {main_form},
				  fenmian_unit in 'fenmian_unit.pas' {fenmian_form},
				  Login_Unit in 'Login_Unit.pas' {Login_Form},
				  khzl_unit in 'khzl_unit.pas' {khzl_form},
				  gyshzl_unit in 'gyshzl_unit.pas' {gyshzl_form},
				  yg_unit in 'yg_unit.pas' {yg_form},
				  spfl_unit in 'spfl_unit.pas' {spfl_form},
				  dw_unit in 'dw_unit.pas' {dw_form},
				  jh_unit in 'jh_unit.pas' {jh_form},
				  xsh_unit in 'xsh_unit.pas' {xsh_form},
				  khth_unit in 'khth_unit.pas' {khth_form},
				  kc_unit in 'kc_unit.pas' {kc_form},
				  cbhc_unit in 'cbhc_unit.pas' {cbhc_form},
				  fx_unit in 'fx_unit.pas' {fx_form},
				  data_unit in 'data_unit.pas' {database: TDataModule},
				  spzl_unit in 'spzl_unit.pas' {spzl_form},
				  sfkfs_unit in 'sfkfs_unit.pas' {sfkfs_form},
				  khzl_find_unit in 'khzl_find_unit.pas' {khzl_find_form},
				  ghszl_find_unit in 'ghszl_find_unit.pas' {ghszl_find_form},
				  ygzl_find_unit in 'ygzl_find_unit.pas' {ygzl_find_form},
				  spfl_find_unit in 'spfl_find_unit.pas' {spfl_find_form},
				  jldw_find_unit in 'jldw_find_unit.pas' {jldw_find_form},
				  spzl_find_unit in 'spzl_find_unit.pas' {spzl_find_form},
				  spzl_spfl_find_unit in 'spzl_spfl_find_unit.pas' {spzl_spfl_find_form},
				  spzl_dw_find_unit in 'spzl_dw_find_unit.pas' {spzl_dw_find_form},
				  sfkfs_find_unit in 'sfkfs_find_unit.pas' {sfkfs_find_form},
				  jh_ghs_find_unit in 'jh_ghs_find_unit.pas' {jh_ghs_find_form},
				  jh_yg_find_unit in 'jh_yg_find_unit.pas' {jh_yg_find_form},
				  jh_sp_find_unit in 'jh_sp_find_unit.pas' {jh_sp_find_form},
				  jh_jhdh_find_unit in 'jh_jhdh_find_unit.pas' {jh_jhdh_find_form},
				  jh_sfkfs_find_unit in 'jh_sfkfs_find_unit.pas' {jh_sfkfs_find_form},
				  jh_find_unit in 'jh_find_unit.pas' {jh_find_form},
				  jh_jhd_find_unit in 'jh_jhd_find_unit.pas' {jh_jhd_find_form},
				  jh_th_unit in 'jh_th_unit.pas' {jh_th_form},
				  jh_fk_find_unit in 'jh_fk_find_unit.pas' {jh_fk_find_form},
				  jh_th_find_unit in 'jh_th_find_unit.pas' {jh_th_find_form},
				  kh_th_find_unit in 'kh_th_find_unit.pas' {kh_th_find_form},
				  khth_find_unit in 'khth_find_unit.pas' {khth_find_form},
				  kc_date_unit in 'kc_date_unit.pas' {kc_date_form},
				  kc_bb_unit in 'kc_bb_unit.pas' {kc_bb_form},
				  xtcsh_unit in 'xtcsh_unit.pas' {xtcsh_form},
				  UserSet_Unit in 'UserSet_Unit.pas' {UserSet_Form},
				  xsh_find_unit in 'xsh_find_unit.pas' {xsh_find_form},
				  jbzl_print_unit in 'jbzl_print_unit.pas' {jbzl_print_form},
				  xshfk_find_unit in 'xshfk_find_unit.pas' {xshfk_find_form},
				  xshd_find_unit in 'xshd_find_unit.pas' {xshd_find_form},
				  About_Unit in 'About_Unit.pas' {About_Form},
				  Quit_Unit in 'Quit_Unit.pas' {Quit_Form},
				  Qx_Unit in 'Qx_Unit.pas' {Qx_Form},
				  Backup_Unit in 'Backup_Unit.pas' {Backup_Form},
				  Restore_Unit in 'Restore_Unit.pas' {Restore_Form},
				  Reg_Unit in 'Reg_Unit.pas' {Reg_Form},
				  Share_Unit in 'Share_Unit.pas';
				
				{$R *.res}
				
				begin
				  Application.Initialize;
				  fenmian_form := Tfenmian_form.Create(application);
				  fenmian_form.ShowModal;
				 // Application.CreateForm(Tfenmian_form, fenmian_form);
				  Application.Title := '一通进销存修改版';
				  Application.CreateForm(Tmain_form, main_form);
				  main_form.Show;
				  //Application.CreateForm(Tdhjm_form, dhjm_form);
				  if TLogin_Form.ShowMe then
				  begin
				  //Application.CreateForm(Tmain_form, main_form);
				    Application.CreateForm(Tdatabase, database);
				  //Application.CreateForm(Tfenmian_form, fenmian_form);
				  //Application.CreateForm(Tdhjm_form, dhjm_form);
				    Application.Run;
				  end;
				end.
				
							

相关资源