sql_admin.~pas

进销存源码,这是一个可移植企业的进销存系统,大家可以参考一下做法

unit Sql_admin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls;

type
  TSqlAdminfrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Image1: TImage;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    TabSheet2: TTabSheet;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button3: TButton;
    Button4: TButton;
    ComboBox3: TComboBox;
    Memo1: TMemo;
    Panel1: TPanel;
    Button5: TButton;
    Button6: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
        function LblToFie(Combox_text:STRING):STRING;
    function LblTodt(Combox_text:STRING):STRING;
    function FieldType(combo_text:string):string;
    function checkop():string;

  public
    { Public declarations }
  end;

var
  SqlAdminfrm: TSqlAdminfrm;

implementation

uses MSDM;

{$R *.DFM}

procedure TSqlAdminfrm.Button5Click(Sender: TObject);
begin
  if (pagecontrol1.ActivePage=tabsheet1) then //