gp32.~pas

公交行业的管理系统

unit GP32;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TAttachInfo = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AttachInfo: TAttachInfo;

implementation

uses Code2, GP31Code;

{$R *.dfm}

procedure TAttachInfo.BitBtn2Click(Sender: TObject);
begin
        GP3Form.cocode := '';
        GP3Form.coname := '';
        GP3Form.coyear := '';
        GP3Form.refreshform();

        attachInfo.Close;
end;

procedure TAttachInfo.BitBtn1Click(Sender: TObject);
var
        sqlstr : string;
        year : integer;
        i : longint;
begin
        if (length(Edit2.Text)<>12)
        then
        begin
                ShowMessage('单位代码长度规定为12位！');
                exit;
        end;

        year := strToInt(copy(DateToStr(Date),1,4));
        if ((Edit1.Text <> '') and (Edit2.Text <> ''))
        then
        begin
                sqlstr := 'select * from 公用事业单位基本情况表 where 单位代码='+''''+Edit2.Text+''''+ ' and 统计年份='+inttostr(year);
                GP3Form.AdoQuery1.Close;
                GP3Form.AdoQuery1.SQL.Clear;
                GP3Form.AdoQuery1.SQL.Add(sqlstr);
                GP3Form.AdoQuery1.Open;
                if (GP3Form.AdoQuery1.RecordCount <>0)
                then
                begin
                        ShowMessage('输入企业代码信息重复，无法存储！');
                        exit;
                end;
                sqlstr := 'insert into 公用事业单位基本情况表 (单位名称,单位代码,统计年份) values ('+''''+Edit1.Text+''''+','+''''+Edit2.Text+''''+','+inttostr(year)+')';
                GP3Form.AdoQuery1.Close;
                GP3Form.AdoQuery1.SQL.Clear;
                GP3Form.AdoQuery1.SQL.Add(sqlstr);
                GP3Form.AdoQuery1.ExecSQL;

                GP3Form.cocode := Edit2.Text;
                GP3Form.coname := Edit1.Text;
                GP3Form.coyear := inttostr(year);

                GP3Form.refreshform();
                attachinfo.Close;
        end
        else
                ShowMessage('请先输入企业代码和企业名称！');
end;

procedure TAttachInfo.FormShow(Sender: TObject);
begin
        Edit1.Text := '';
        Edit2.Text := GP3Form.ComboBox2.Text;
end;

end.